Is there a reason why you're trying to do this through Perl? I'd recommend doing this straight into your MySQL monitor with something like:

NSERT INTO database.new_table (SELECT * FROM database.old_table);
[download]

This will work as long as both table structures are exactly identical.

- wil