{
   no strict 'refs';
   while (@data = $sth1->fetchrow_array()) {
      for (my $field = 0; $field <= $#data ; $field++) {
         my $var_name = 'field' . ($field+1);
         push(@$var_name, $data[$field]);
      }
   }
}