If there's a bug, it's more likely to be yours than in Perl. You're printing the length of the wrong variable.