open(my $inp, '<', $file_list) or die("Error reading $file_list: $!");
while (<$inp>) {
...
}
close $inp;