my $data; # Arbeitsvariable
my $datei;
for my $file (@textdateien)  
{
open DAT, $file;
push(@liste,$file);    #SPEICHER DIE DATEI IN EIN ARRAY
for my $line (<DAT>)
{

chomp $line; # Den Zeilenumbruch am Ende entfernen
$data .= $line; # und diese Zeile anhängen,falls es über mehrere Zeilen geht


push(@liste,$file);# das führt leider zu zuvielen Dateinamen!
my @saetze = split/(?<=[\.!?])\s*/, $data; #Filtert Sätze raus


open DATEI, ">out.txt"; # Die Ausgabedatei

$counter = 0; # counter initialisieren

for (@saetze)
{

print DATEI $counter++, "; $_ \n"; #Enthält die ID und die Sätze

}

close DATEI;


close DAT;
}

################################################################
#Hier sollen nun die Dateinamen zu den Sätzen gespeichert werden
################################################################
}
open DATEI ,">verweis.txt"; #Enthält die ID und die Dateinamen

foreach(@liste) #KOMMT LEIDER Mist RAUS
{
$counter2++;
print DATEI $counter2.";"."$_\n";

}
close DATEI;