#!/usr/bin/perl -w
use strict;
use autodie;
use List::Util qw/any/;

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

# Suchdatei lesen aufbauen und Pattern aufbauen
open (my $sfh, $TestFile_Search);
my @search = <$sfh>;
close $sfh;

# Testdatei lesen und durchschleifen
open (my $rfh, $TestFile_Read);
while( my $line_r = <$rfh> )
   {
   # print "File_Read: $line_r";
      if( any { $line_r eq $_ } @search )
        {
           print "Gefunden ($TestFile_Read in $TestFile_Search): $line_r";
        }
   }
close $rfh;