@Zonelist = ("@WGLZAL","@WGLZAU","@WGLZBL","@WGLZBU",
               "@WGLZCL","@WGLZCU","@WGLZDL","@WGLZDU");

##</code><code>##

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

##</code><code>##

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

##</code><code>##

NUMERIC | VAL1  | VAL2
--------+-------+---------
  0     | FALSE | FALSE
--------+-------+---------
  1     | FALSE | TRUE
--------+-------+---------
  2     | TRUE  | FALSE
--------+-------+---------
  3     | TRUE  | TRUE 
--------^-------^---------