for (my $s=00;$s<=$test;$s++) #Zeile41
#hier sage ich er soll alle Dateien der Reihe nach öffnen bis eben die letze Datei erledigt ist
#wäre das dann nicht <=$test-1 statt <=$test ?
{
#für was müsste ich hier $Dateiname einsetzen? bei mir finde ich diese Variabel nicht
#müsste ich in meinem Fall dann $Verzeichnis[$s] einsetzen?
for my $Dateiname (@Verzeichnis) #Zeile47


open (LESEN,"<C:/Freunde/my $Verzeichnis[$s]");     #Zeile50
my @inhalt=<LESEN>;    #Zeile51
my $Data=join(' ', @inhalt);      #Zeile52
#hier wird inhalt in eine Zeile gestopft 
#also slurpen soweit ich verstanden habe
for my $Name ($Namensliste[$s])      #Zeile55

{
#falls Name in Datei vorhanden, egal ob/mayer oder Mayer
#dann wird die Zahl um eins erhöht, falls es 2x vorkommt
#trotzdem nur einmal da if Bedinung 1x erfüllt und es
#dann gleich weiter geht
if($Data=~/$Name/i)      #Zeile62
{
my $Zahl++;     #Zeile64
}

}
close(LESEN)      #Zeile68
}

print my $Zahl;     #Zeile71
print my $test;     #Zeile72
<stdin>
#hier lasse ich mir eben ausgeben in wievielen
#Textdateien der Name wo im Namen der Datei stand
#auch im Dateiinhalt steht und wieviele Dateien
#es insgesamt waren.