Eventuell findest du dort unter How can I use a filehandle indirectly? eine Antwort.

vielen dank für deinen tipp:

As of perl5.6, open() autovivifies file and directory handles as references if you pass it an uninitialized scalar variable. You can then pass these references just like any other scalar, and use them in the place of NAMED handles.

open my    $fh, $file_name;