It seems to me that this is a thinking problem more than a perl problem.

You have three options:

1. Use CPAN modules (see above).

2. Learn from CPAN modules to solve your problem (see above).

3. Think about the solution, and then implement it in perl.

There is an answer, and someone has already figured it out. But this is a thinking problem, not really a coding problem. I wish you well.