Select Code to Download

# declare $grid to hold ref to anon hashes (thanks tye)
my $grid; 
...
print "Here is -2,3 : ", $grid->{-2}{3};
print "\nHere is 0,0 : ", $grid->{0}{0};

my %grid1;

...
print "\nHere is name 0,0 : ", $grid1{0,0}{'name'};
print "\nHere is power -2,3 : ", $grid1{-2,3}{'power'};
print "\nHere is allow 5,4 : ", $grid1{0,0}{'allow'};

my %grid2;

...
print "\nHere is name 0,0 : ", $grid2{0,0}[0];
print "\nHere is power -2,3 : ", $grid2{-2,3}[1];
print "\nHere is allow 5,4 : ", $grid2{0,0}[2];