if ($file1[0] == $file2[0]) {print @file2}