Ok here goes;
open(FILE1,"file1" ) || die("Cannot Open File1");
open(FILE2, "file2" ) || die("Cannot Open File2");
open(FILE3, "file3" ) || die("Cannot Open File3");
my @files;
my $delimiter = "\del\n";
push(@files, <FILE3>,$test,<FILE2>,$test,<FILE1>);
close (FILE1);
close (FILE2);
close...