open (FILE1, $file1);
open (FILE2, $file2);

for (FILE1) {
   chomp;
   @filearray1 = split;
   for (FILE2) {
        chomp;
        @filearray2 = split;
        if ($filearray1[0] eq $filearray2[0]) {
            print $filearray1[0];
            print $filearray2[0];
         }
   }
}