my %zone;
foreach my $name (AA..ZZ) {
   $zone{$name} = [ qw|FALSE FALSE| ];
}