Please use <code></code> tags around your code.

Using fetchrow_arrayref instead of fetchrow_array might be slightly faster, or using bind_columns, but probably not by much. E.g.:

my $sth = $dbh->prepare("SELECT ...");
my @columns = @{$sth->{NAME}};
my @row; $sth->bind_columns(\@row{0..$#columns});

# Then
while ($sth->fetch()) {
  $ins_h->execute(@columns);
}
[download]

But, it would probably be significantly faster if you could use whatever bulk-load facility your database provides.