So it seems the error is not in this part of the code.
Hence the error must be somewhere else in your code.

As I don't have Perl 5.8, I'm afraid that I will not be of much help further.

CountZero

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