Select Code to Download

$ perl -Mstrict -wle"my %hash; @hash{'array'} = 'foo';"
Scalar value @hash{'array'} better written as $hash{'array'} at -e lin
+e 1.
$

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