Help for this page
my @arr=map [0..$_], 4,3,10;
my $i = Set::CrossProduct->new([map [0..$_], 4,3,10]);