Select Code to Download

sub getFiles {
    my @fileNames = [ "manimp1.txt", "manimp2.txt" ];
...
        delete ($newPrices{'Part Num.'});
    }
}

for my $file (@fileNames) {
        open (FILE, "<", $file) or die "Couldnt open file:  $file\n";

Part Num.    Description     Base Price     Code
001051536    * (R/B 455632)          455632
...
041112023071    Seal Kit     402.98     
041112030171    Engine Gasket Kit     611.32     
041112030271    Seal Kit     1,035.86