open my $fh, q{<:crlf}, 'WORD.LST' or die "cannot open file:$!\n";