in reply to code for review

Please post your code within <code> tag.
Go through this before posting How do I post a question effectively?

use Perl;
Perl4Everything

In Section Seekers of Perl Wisdom