I don't see what you have tried or where you are having trouble. Surely you don't expect that we are just going to sit down and write a complete solution to your problem from scratch given a poor problem specification and not even an example of the expected output?

PerlMonks is a Perl language support site, not a free coding site. We will be delighted to help you resolve issues in your code, but generally are less helpful when it comes to doing your job for you - although you ought to have figured that out by now!