% while ($island= $islands->fetchrow_hashref) {
% my $islandid= $island->{'islandid'};
% $offers->execute($commodid, $islandid);
% while ($island= $islands->fetchrow_hashref) {
% my $islandid= $island->{'islandid'};
% $offers->execute($commodid, $islandid);