@liste1=("");
open(stream,"<file1");
while (<stream>)
{
   push(@liste1,$_);
}
close (stream);

foreach $var1(@liste1)
{
   foreach  $var2(@liste2)
                      {
                            if ($var2=~/var1/)
                             {
                                 print "die zeilen sind gleich";
                              }
                      }
}