You've specified a prototype with your function. Don't. Perl's prototypes are not like C or C++ or Java. Its actually an entirely different sort of thing.

You might also want to check out Devel::SummarizedWarnings if you're looking at too many identical errors.