my @array = qw( foo bar baz quux );
my %hash  = map { $_ => 1 } @array;