my @intervals = NestedLoops(
  ..
  sub {
    return [ map { [@data[ $_[2*$_] .. $_[2*$_+1] ]] } 0 .. $D ]
  }
);