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