Hello and welcome!

This is not a script writing service. We will help you with concrete Perl problems you have.

Please post the code you have written, some relevant input data and output data, and also the exact problem you have with the code. This helps us to help you better.