#!/usr/bin/perl -w                                                                                                                                                                                                               
use Data::Dumper;

open(FILE1, $ARGV[0]);
open(FILE2, $ARGV[1]);

while ($line = <FILE1>) {
  
  my $line2= <FILE2>;
  chomp($line);
  chomp($line2);
  print "$line $line2\n";
}