map {$hash->{foo}} 1;

##</code><code>##

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