#!/usr/bin/perl

use warnings;
use strict;

my $TestFile_Read   = "testfile_1";
my $TestFile_Search = "testfile_2";

my ($rfh, $sfh, $line_r, $line_s);

open($rfh, "<", $TestFile_Read) or die "Test File '$TestFile_Read' kann nicht gelesen werden : '$!'\n"; 

open($sfh, "<", $TestFile_Search) or die "Test File '$TestFile_Search' kann nicht gelesen werden : '$!'\n"; 
my @searches = <$sfh>;
chomp(@searches);
close($sfh);

while($line_r = <$rfh> ) {
    chomp($line_r);
    for $line_s (@searches) {
        if ($line_r eq $line_s) {
            print "Gefunden ($TestFile_Read in $TestFile_Search): $line_s\n";
            last;
        }
    }
}
close($rfh);