in reply to Passing filehandles to subs.
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...
In Section
Seekers of Perl Wisdom