open(FILE1,"/tmp/file1");
open(FILE2,"/tmp/file2");

while(<FILE1>){
       $var = $_;
       while(<FILE2>){
             #compare $var against new $_
             if($var eq $_){ print "$_ matched!\n"}
       }
}