the code runs fine for me under use strict;, probably your error is somewhere else in your code, or you're running some really weird ancient version of perl.
supplying a link to the whole code and giving your version of perl and your plattform might help!

cheers
snowcrash