Your code works without errors or warnings on my Activestate Perl 5.6.1 with all warnings enabled.

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law