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