Ummm... Just a thought, aside from what diotalevi said, I don't think Perl would be happy with that solution since the original poster has Use Strict; in his code.

What's wrong with our?