}
    
    }
}
close $fh;
close (DATEI);

open(DATEI,"datei.txt") || die "File datei.txt nicht gefunden";
@geparst = <DATEI>;
close(DATEI);