This is not a script writing service, nor is it the Excel helpdesk. We will gladly help you with your Perl code, if you show it. Please post a self-contained program no longer than 20 lines that still shows the problem. Tell us what problems you have and what errors you get. Also show the relevant part of the input and output, and how the output is not what you want.

Some modules that might get you started are Spreadsheet::ParseExcel and Spreadsheet::WriteExcel. perlfaq4 has lots of interesting entries on finding the array intersection for example.