This is homework, right? See how (not) to ask a question and perlretut.

And please don't put your whole post in a <code> block. Writeup Formatting Tips should help.