while(!eof(FILE1) && !eof(FILE2) {
   my $file1 = <FILE1>;
   my $file2 = <FILE2>;
}