my $Zahl; 
#Die Zahl die erhöht werden soll, sofern in der
#Datei Mayer@München.txt der Namen Mayer vorhanden ist(also im Inhalt)
#kann sein das eventuell auch /Mayer dran steht.

for my $Dateiname (@Verzeichnis)
{
 open(LESEN,"<","C://Freunde/$Dateiname");
 #ist wo für jede Datei deren Inhalt abgespeichert wird
 my @inhalt=<LESEN>;
 # inhalt zusammenfügen:
 my $Data=join(' ', @inhalt);
 for my $Name (@Namensliste)
 { 
  # abfrage starten:
  # finde mit Regexp den Inhalt von "$Name" im String "$Data".
  # "i" heißt arbeite dabei Caseinsensitiv
  # Siege Doku zu Regexp.
  if($Data=~/$Name/i)
  {
   print "$Name in $Dateiname gefunden!\n";
   # alles weiter liegt bei dir :-) 
  }
 } 
 close(LESEN);
}