my $laenge = @ARGV
    
    for (my $i = 0; $i <= $laenge; $i++) {
    print $fh "$ARGV[i]\n\n $array_result[i]\n";