#!/usr/bin/perl
use Tie::File;
use strict;
use warnings;
my $output;
tie my @file1, "Tie::File", "file1.txt";
tie my @file2, "Tie::File", "file2.txt";
foreach my $line1 (@file1) {
foreach my $line2 (@file2) {
$output = join ",", $line1,$line2;
}
open (FILE, ">>", 'file3.txt') or die "Cannot open file!\n";
print FILE "$output\n";
close FILE;
}