Select Code to Download

use Data::Dumper;
use Algorithm::Loops 'NestedLoops';
...
my $range = 40;

NestedLoops( [[1..$range], ( sub { [$_+1..$range] } ) x ($depth-1)], s
+ub { print Dumper \@_})