Referenz auf Referenz auf Hash/Filehandler übergeben?

[Stefan Welscher]

Hallo Community,
ich versuch gerade in PERL eine Referenz durch mehrere Funktionen durchzuschleusen, kenn mich aber leider noch nicht so genau mit dem Thema aus.....

Also ich habe im Hauptprogramm ein Hash %I und einen Filehandler OUTPUT, welche ich dann an eine Funktion in einem anderen Modul als Referenz übergebe. Diese Funktion muss allerdings auch wieder die Möglichkeit haben, die Referenzen an eine andere Funktion weiterzureichen.
Bisher sieht das ganze bei mir so aus:

#Hauptscript:
...
open (OUTPUT ">", $output_file);
my $return=&conf_pe(%I, *OUTPUT, 'initial');
...

#Modul1:
sub conf_pe
{
   my ($HI, $OUTPUT, $conftype)=@_;
   my $return=0;

if ($conftype eq "initial")
   { $return=conf_initial_pe{%I, *OUTPUT}; }
   ...

return $return;
}

#Modul2
sub conf_initial_pe
{
   my ($HI, $OUTPUT)=@_;
   my $I=%{$HI};

my %O=get_pe_config($I{'ce'});
   print $OUTPUT $O{'header'}
   ....

return 1;
}

Das Problem ist jetzt, dass die Dateien leer bleiben...
Vermutlich wegen dem Filehandler, aber das Hash kann ich auch nicht ausschließen.
Sieht einer den Fehler :D ?

Danke!!!