my %hash = map /(\w+)/ ? ( $1, 1 ) : (), <>;