# declare $grid to hold ref to anon hashes (thanks tye)
my $grid; 
for my $x(-5..5) {
    for my $y(-5..5) {
        $grid->{$x}{$y} = "co-ords x:$x, y:$y";
    }
}

print "Here is -2,3 : ", $grid->{-2}{3};
print "\nHere is 0,0 : ", $grid->{0}{0};


##</code><code>##

my %grid1;

for my $x(-5..5) {
    for my $y(-5..5) {
        $grid1{$x,$y} = { name  => "$x,$y", 
                          power => int rand(10),
                          allow => "all" };
    }
}

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'};

##</code><code>##

my %grid2;

for my $x(-5..5) {
    for my $y(-5..5) {
        $grid2{$x,$y} = ["$x,$y",int rand(10),"all"];
    }
}

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];