You have:

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

Are you certain you don't want:

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

In addition, you can clean up your code considerably with the qw operator, eg.:

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

Update: I also see a loop that starts:

for $b (0 .. $#price) {
...
[download]

Are you running with use strict? If not, you probably should be.

Update: One more thing--looping over indices is rarely needed, and makes for ugly code. I think your loops should be more like:

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

This saves you the mental overhead of having to process all those array lookups.