How is it that you are not understanding the need to use <code> and </code> around perl code and data?

You're more likely to get some help improving your code when you start making your posts readable. You can edit your post, so please do that, to make it readable.