use strict;
use warnings;
open(IN, "file1") || or die $!;
open(IN2, "file2") || or die $!;
open(OUT, ">>joinfile") || or die $!;
while(defined(my $f1 = <IN>)
{
    chomp $f1;
    my $f2 = <IN2>;
    print OUT "$f1 $f2";
}