open(my $fh, '<', $_) or die $!;