my $val= 3;
for my $i (  1 .. $depth-1  ) {
    my $end= $val;
    push @$loop, sub {[$_+1..$end]};
    $val += 2;
}