open (my $DATEI, '>>', "Neu.txt");