Another approach using array slices.

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @AoA = (
   [ '00' .. '09' ],
   [ '10' .. '19' ],
   [ '20' .. '29' ],
   [ '30' .. '39' ],
   );
 dd \@AoA;
 ;;
 print join '-', @{ $AoA[1] }[ 3 .. 7 ];
 print qq{@{ $AoA[2] }[ 2 .. 5 ]};
"
[
  ["00", "01", "02", "03", "04", "05", "06", "07", "08", "09"],
  [10, 11, 12, 13, 14, 15, 16, 17, 18, 19],
  [20, 21, 22, 23, 24, 25, 26, 27, 28, 29],
  [30, 31, 32, 33, 34, 35, 36, 37, 38, 39],
]

13-14-15-16-17
22 23 24 25
[download]