Ok, dann vielleicht in aller Deutlichkeit nochmal: Mein Haupttipp war, keine globalen Dateihandles zu verwenden, sondern lexikalische. Also bei Dateihandles, genau wie bei Variablen, my $fh zu nehmen statt FH. Ich hoffe, diesem Tipp wirst zu zustimmen.
Mit my $fh = IO::File->new(); ergibt sich automatisch ein lexikalisches Filehandle ;)