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