Re^4: Localizing hash keys in an AoH

Looks like you can do all that in a single line as well:

perl -E 'use strict;my @x=map {Z=>$_+999}, 0..5;{$_->{Z}=33 for local 
+ @x[0..$#x]; say $x[2]{Z}}; say $x[2]{Z}'
33
1001
[download]

"I'm fairly sure if they took porn off the Internet, there'd only be one website left, and it'd be called 'Bring Back the Porn!'"
-- Dr. Cox, Scrubs

Comment on Re^4: Localizing hash keys in an AoH Download Code