open(IN, "file1") || or die;
open(IN2, "file2") || or die;
open(OUT, ">>joinfile") || or die;
for my $file1 (<IN>) {
       chomp $file1;
       for my $file2 (<IN2>) {
              chomp $file2;
              print OUT "$file1 $file2\n";
       }
}