$ perl -MO=Deparse -e '@$_{1,2,3}=(4,5,6) for \my %hash;print keys %ha
+sh'
foreach $_ (\my(%hash)) {
@$_{1, 2, 3} = (4, 5, 6);
}
print keys %hash;
-e syntax OK
Thus, people who try to understand it via the Deparsed version may be
somewhat disappointed.
|