Normally I wouldn't downvote a question like this (or even comment on a decision to downvote), but as GrandFather points out, you were already given the solution to this sort of problem a few times, in response to the previous SoPW threads you've posted.

What's the point of asking for advice when you ignore the advice you've been given? How about this for motivation: from now on, whenever you post code that does not include use strict;, I'll downvote you. That's a promise. :)

Sure, "use strict" is only "optional", and it seems like a pain until you get used to it. But the fact that it is used faithfully by Perl programmers who are both very experienced and highly skilled should tell you something: it really is valuable.