You have given us your homework question, but you haven't shown us the code you have tried nor told us where you are having trouble with it.

Maybe you should look around the Tutorials section for a start to get oriented with Perl a litte, then try actually writing some code, then come back to us with explicit code related problems you are having?