%h = map {$_ => 1} qw[foo bar baz];