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

##</code><code>##

perl -wle 'use Data::Dumper; my %a; @a{my @b=()} = (); print Dumper(\%a)'