my %hash = map {($_, 1)} qw /foo bar baz/;