sub getFiles {
    my @fileNames = [ "manimp1.txt", "manimp2.txt" ];
    for my $i (0..$#fileNames) {
        open (FILE, "<", $fileNames[$i]) or die "Couldnt open file:  $fileNames[$i]\n";
        while (<FILE>) {
            $count++;
            my @line_array = split (/\t/, $_);
            chomp(@line_array);
            my $key = shift(@line_array);
            my $aref = [@line_array];
            $newPrices{$key} = $aref;
        }
        delete ($newPrices{'Part Num.'});
    }
}