An incidental piece of advice.

First go out and read this explanation of what prototypes are in Perl.

Then drop them from your code entirely. It will be much improved for it...