while (my $file1 = <FILE1> and my $file2 = <FILE2>) {
  chomp $file1;
  chomp $file2;
  print join " ", $file1, $file2, "\n";
}