my @lookup{@array} = undef;

##</code><code>##

my %lookup = map { $_ => undef } @array;