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