#!/usr/bin/perl -w

open (F, "<$ARGV[0]");
open (G, "<$ARGV[1]");

while ($l = <F>) {
    $l1 = <G>;
    chomp $l;

    print "$l $l1";
}