Hi,

Please use warnings and strict in your script. It will help you identify several errors in your code.
Also, Use 3 - arugment open function like so:

ope my $fh,'<',$file or die "can't open file: $!";
[download]

Use foreach loop, not a C language type of for loop, though it work in Perl. Write like so:

...
use Cwd qw(abs_path);    ## module to get absolute pathname
  ...
  foreach my $my_file(@lines){
     $my_file = abs_path($my_file);  # get the absolute pathname of ea
+ch file
     open my $fh2,'<',$my_file or die "can't open file: $!";
        while(<$fh2>){
         ...
        }
  }
 ...
[download]