my %hash;
%hash = map { chomp; $_ => '1' } split /(\s+|\W+)/, <>;