my @arr=map [0..$_], 4,3,10;

##</code><code>##

my $i = Set::CrossProduct->new([map [0..$_], 4,3,10]);