Perl: Créer un slice à deux dimensions

Author:
for ($startx = $x = 4; $x <= 8; $x++) {
    for ($starty = $y = 7; $y <= 12; $y++) {
        $mySlice[$x - $startx][$y - $starty] = $AoA[$