use Data::Dumper;

%hash = (key => 1);
local $hash{key} = 2;

print Dumper(\%hash);# print 2
print $hash{key};# also print 2.

##</code><code>##

int a[200];

##</code><code>##

a[100] = 2;