Help for this page
my %hash; %hash = map { chomp; $_ => '1' } split /(\s+|\W+)/, <>;
my %hash = map /(\w+)/ ? ( $1, 1 ) : (), <>;