use strict;

my $filelist = "/foo/bar/file.txt"

open(FILE, $filelist) or die "$!\n";

while(<FILE>) {
   chomp;
   open(FILE2, $_) or die "$!\n";

   <do whatever>

   close;
}

close;