Among the many warnings of Perl that might, or might not indicate a bug, this certainly points to code that was written incorrectly.