my $namesFileName = shift; # Get name of the file names file from command line

open my $inNames, '<', $namesFileName or die "Unable to open $namesFileName: $!\n";
my @filenames = <$inNames>; # Read the file names (one per line)
close $inNames;
chomp @filenames; # Remove the line end character from each entry

...