Shell Programming and Scripting

cmd#   perl scriptname.pl > your_output_file_name

open (FOUT, ">output.txt") || die "Cannot create the output file";
for (my $i = 0; $i<=$#file1; $i++) {
print FOUT "\n----- Group ", $i+1," ------\n", "$file1[$i]\n", "$file2[$i]\n";
}
close (FOUT);

#!/usr/bin/perl
use strict;
use warnings;
my $file1=open_file("file1.txt");
my $file2=open_file("file2.txt");
my @file1 = split(/\n{2,}/, $file1);
my @file2 = split(/\n{2,}/, $file2);
open (FOUT, ">output.txt") || die "Cannot create the output file";
for (my $i = 0; $i<=$#file1; $i++) {
print FOUT "\n----- Group ", $i+1," ------\n", "$file1[$i]\n", "$file2[$i]\n";
}
close (FOUT);
sub open_file
{
 my ($fname)=@_;
 undef $/;
 open (FIN, "<", "$fname") || die "Cannot open the input file $fname : $!";
 my $fcontent=<FIN>;
 close (FIN);
 return "$fcontent\n";
}