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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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