my %lookup = map { $_ => 1 } @a;

##</code><code>##

my %lookup; 
@lookup{@a}=();