$b{$_}=1 for @a;

##</code><code>##

@b{@a} = (1)x@a;

##</code><code>##

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