Hi,

If I may give you a head up. The following script will get names of file from junk.txt, saved in an array variable. Then using a foreach loop, open function and a while loop to print out content of each of the file listed in the text file named junk.txt like so:

use warnings;
use strict;
use Cwd qw(abs_path);

my $file = "junk.txt";
my @lines;

open my $fh, '<', $file or die "can't open file: $!";
while (<$fh>) {
    chomp;
    push( @lines, $_ );
}
close $fh or die "Cannot close file: $!";

foreach my $my_file (@lines) {
    $my_file = abs_path($my_file);    # get the absolute path of each 
+file
    open my $fh2, '<', $my_file or die "can't open file: $!";
    while (<$fh2>) {
        chomp;
        print $_, $/;
    }
    close $fh2 or die "Cannot close file: $!";

}
[download]

Re-write this to do what you want.
Please, also note that subroutine are not written in Perl like so: sub subname(){...} (expect for maybe prototype),but like so: sub subname{...}
Please, check perlsub for more information.