Once again, your questions belong in the Seekers of Perl Wisdom section, not PerlMonks Discussion. So you should be posting here.

Edit: BTW, your code doesn't even compile, so either you did not actually try, or you are not showing us your real test.