open( my $zweite_fh, ">>", "/var/lib/testverzeichnis/k_loesch/loeschtxt/$mydate.txt") or die $!;

print $zweite_fh join( "\n", @allefiles );

close $zweite_fh;