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