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

##</code><code>##

for(@filearray1){
  ($col1)=split;
  push@colarray1,$col1;
}
for(@filearray2){
  ($col1)=split;
  push@colarray2,$col1;
}