Inhalt von zwei Dateien vergleichen

[Fritzek]

my @suchen = <DATEI_1>;
chomp(@suchen);

Damit enfernst du aber nur das Newline von einer Zeile.
Du meinst wahrscheinlich:
chomp( my @suchen = <DATEI_1>);

while (<DATEI_2>)
{
   my $zeile = $_;

wie schon gesagt das kannst du kürzer Schreiben:
while (my $zeile = <DATEI_2>)

foreach (@suchen)
   {
      my $suche = $_;

und hier auch:
foreach my $suche( @suchen)

Struppi.

Danke, Struppi, für die Hinweise. Werd es sofort erledigen und dann mal gegen was ganz großes laufen lassen: 18 Mio Zeilen und drei Suchbegriffe. Werd euch berichten, wie lange es gedauert hat.
Fritz, the Cat