sub nForX(&@) {
    my $code = shift;
    my $n = shift;
    return $code->( @_ ) unless $n;
    for my $i ( @{ shift() } ) {
        &nForX( $code, $n-1, @_, $i );
    }
}

nForX{ print "@_"; } 6, ([1..6]) x 6;;
1 1 1 1 1 1
1 1 1 1 1 2
1 1 1 1 1 3
1 1 1 1 1 4
1 1 1 1 1 5
1 1 1 1 1 6
1 1 1 1 2 1
1 1 1 1 2 2
1 1 1 1 2 3
1 1 1 1 2 4
1 1 1 1 2 5
...
[download]