Are you aware that you are posting to the Seekers of Perl Wisdom? According to the docs:

If you have a question on how to do something in Perl, or you need a Perl solution to an actual real-life problem, or you're unsure why something you've tried just isn't working... then this is the place to ask.

Well, I can see you seem to have a problem, but you don't have a question, so I don't know what kind of solution do you expect. Because you probably know what you mean, but I don't.