I'm not sure why you need Perl for this job?
This looks like a spreadsheet situation.
Do it in Excel with a few macros.