while (@data = $sth1->fetchrow_array()) {
    for (my $field = 0; $field <= $#data ; $field++) {
        my $var_cnt = $field+1; #needed for cat in next line to work
        eval('push @field'.$var_cnt.', $data['.$field.'];');
    }
}

##</code><code>##

my %results;
while ($data = $sth1->fetchrow_hashref) {
    foreach (keys %$data) {
        push $reults{$_}, $$data{$_};
    }
}

##</code><code>##

foreach (keys %results) {
   print "Results for column $_:\n";
   foreach (@{$results{$_}}) {
     print " $_\n";
   }
}