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