file1 1 2 3 file 2 2 43 56 6 34 56 8 24 48 so 2 43 56 printed #### if ($file1[0] == $file2[0]) {print @file2}