sub test{ my ($t) = @_; my $fh = $$t; print $fh "test\n"; # <-- dies soll in die Datei geschrieben werden }