What you show is not even valid Perl (or when it is, it is a snippet, meaningless in itself). Either post the minimal exact code that produces the problem for you, so we can help you better by reproducing the error ourselves. Or run the code I posted above, and look at what output it produces.