@array = ('foo', 'bar', 'baz', 'qux');
%hash = map { $_ => 1 } @array;