Where is the question? You have just posted some Perl code, no description of the problem, your input or your output.

The question title is just your user name, and not descriptive of your problem, and your closing code tag should be </code> and not <code>.

Please read Writeup Formatting Tips and How do I post a question effectively?.

Martin