open (STREAM_EINS,"<$file1")
@lines1=<STREAM_EINS>;
close(STREAM_EINS);

open (STREAM_ZWEI,"<$file2")
@lines1=<STREAM_ZWEI>;
close(STREAM_ZWEI);

foreach $var1 (@lines1)
{
      foreach $var2 (@lines2)
         {
             if ($var1 =~ /$var2/)
                  {
                      print "ok";
                  }
         }
}