Dateien dursuchen mit Dateiliste.

[Beat]

while (<LIST>)
{
        chomp;
        open FILE, "<", $_ or die "$!") !";

Nutzung der Variable $_; Überprüfung

while (<FILE>)
        {
                         print "Treffer\n" if $_ =~ /$suchwort/;
        }
        close FILE;
}

...

Hi Patrick.
In deinem Code bekommen Dokoren Hochkonjunktur.
Faulheit wird irgendwann bestraft ;)

while($x){
    while($y){
       do($_);
    }
}

Auf was bezieht sich $_?
Da habe ich schon Überraschungen erlebt.
Bei verschachtelten Loops doch deshalb einmal
besser mit einer benannten Alias Variable arbeiten.

while my $u ($x){
    while ($y){
       do($_,$u);
    }
}
Alles Ok jetzt.
Allgemeine Regel:
Reserviere $_ für die innerste Loop.

mfg Beat