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