You're not running with warnings turned on are you? If you had been you would have got the message

print (...) interpreted as function at ./foo.pl line x.
Useless use of a constant in void context at ./foo.pl line x.
[download]

Which pretty much explains what's going on.

You should always ask Perl for as much help as possible when tracking down bugs.

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg