sub main{
     open (my $log_fh, ">$dateiNameLog") 
         || Fehlerausgang("Fehler bei $dateiNameLog: $!");
     &subroutine($log_fh);
}

sub subroutine{
     my($log) = @ARG;
     format $log
     @<<<<<<<<<<@<<<<<<<<
     $wert1, $wert2
     write
     .
}