if (!open(my $fh, '<', $filename)) { warn("Unable to open $filename: $!\n"); next; }