Select Code to Download

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

{
   no strict 'refs';
...
      }
   }
}

my $pkg = \%::;
$pkg = $pkg->{$_.'::'} foreach (split(/::/, __PACKAGE__));
...
      push(@{$pkg->{'field' . ($field+1)}}, $data[$field]);
   }
}