while (<file1>){
   $line1=$_
   while(<file2>){
      $line2=$_
      foreach $field1 in $line1
         foreach $field2 in $line2
            if $field1 eq $field2{
               print $field1
            }
         }
      }
   }
}