@zuloeschen = $liste_auswahldatei->curselection;	###Indizes der $liste_auswahldatei markierten Einträge
	
	#$liste_auswahldatei->delete(0, "end");
	if ( -s $file ) {
		open(FILE,"<$file") || die $!;
		
		while ( my $line = <FILE>) {
			chomp $line;
			@zeile = split ( /\t/, $line);  ### einzelne Elemente durch tab getrennt
			if ( ($#zuloeschen >= 0 ) && ( $zeile[0] == $zuloeschen[0]+1 ) ) {
				shift @zuloeschen;
			} else {
				push(@array_file, $line); ### hier werden die nicht geloeschten Zeilen gesammelt
			}
		}## while
		close(FILE);
	} else {
		$fehler->delete("1.0","end");
		$fehler->insert("1.0","\n\nFehler !!!\n Die Masken-Datei\nfehlt\n\n");
	} ## else