Please put code tags around your code. That means you put this line:
<code>
before the first line of code, and this line:
</code>
after the last line of code. Then PerlMonks will format it properly so we can read it.

How do I post a question effectively? may be helpful.