Select Code to Download

@{$tbls{'12p'}} =  [ 't72', 't73', 't74', 't75', 't76', 't77' ];

$tbls{'12p'} = [ 't72', 't73', 't74', 't75', 't76', 't77' ];

$tbls{'12p'} = [ qw/ t72 t73 t74 t75 t76 t77 / ];

for $b (0 .. $#price) {
...

for my $price (@price) {
    $sql = 'SELECT respondent FROM';
...
        ...
    }
}