for my $i0 ( 0 .. $N ) { for my $i1 ( $i0 .. $N ) { for my $i2 ( $i1+1 .. $N ) { for my $i3 ( $i2 .. $N ) { ...