So, did you read perlreftut?

We're not here to write the code for you, but to help you to learn enough Perl and programminig so that you can do it yourself.