open (FILE1, $file1);
open (FILE2, $file2);
@filearray1=<FILE1>;
@filearray2=<FILE2>;