Select Code to Download

...
inside first anonymous block
...
  ];

$

  return [
    map {
      sub { \@_ }
        ->( @{ $$data[$_] }[@cis] )
    } $$range[0] - 1 .. $$range[2] - 1
  ];

    return
      [
       map {
...
             @$_[ $cols->[0] .. $cols->[1] ] # x-slice
       }  @$data[ $rows->[0] .. $rows->[1] ] # y-slice
      ];