my %zonelist;
foreach my $zone ('AA'..'ZZ') {
    my $key = 'WGLZ' . $zone;
    $zonelist{$key} = [ 'TRUE', 'FALSE' ];
}