Select Code to Download

my $sth = $dbh->prepare('SELECT * FROM [Production Words]');
$sth->execute;
...

my %hash;
while (my $row = $sth->fetchrow_hashref) {

   my ($str,$num) = $row->{ID} =~ /(\D+)(\d+)/;
   my $new_id = lc($str) . int($num);

   unless ($hash{$new_id}++) {
      # INSERT $row into the new table 
...
      # if this redundant old row has better data
   }
}