This is not a script writing service. While we will try to help you with the problems you have when writing Perl code, we expect you to do your work. Please do show us the relevant code you have already written. Tell us what the code is supposed to do. Show us what input you give to your code. Show us what output you get, and what output you want, and how what you get is different from what you want. Only then, we can work with you on your problem.