Use a CSV parsing module, like Text::CSV_XS and read both files into your perl script. To all the twiddling in your script and write your result back. Likely most of that can be done in about three lines of code using csv (). Show us what you tried so far?