Select Code to Download

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

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