next unless defined $arch or defined $island;
if (defined $island and defined $arch) {
my $ii= $islandid2{$island};
my $iarch= $ii->{Arch};
if ($iarch ne $arch) {
next unless defined $arch or defined $island;
if (defined $island and defined $arch) {
my $ii= $islandid2{$island};
my $iarch= $ii->{Arch};
if ($iarch ne $arch) {