Something you said isn't true. (And I'm not referring to the fact that neither of your snippets are Perl code.) Please provide code you actually ran.