Select Code to Download

while (@data = $sth1->fetchrow_array()) {
    for (my $field = 0; $field <= $#data ; $field++) {
...
        eval('push @field'.$var_cnt.', $data['.$field.'];');
    }
}

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

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