$ perl -Mstrict -wle"my %hash; my @array; @hash{@array} = 'foo';"
$