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.'];');
    }
}