my $bits= 8;
    for my $o0 ( 0 .. $bits-1 ) {
        for my $o1 ( 1+$o0 .. $bits-1 ) {
            for my $o2 ( 1+$o1 .. $bits-1 ) {
                for my $o3 ( 1+$o2 .. $bits-1 ) {
                    for my $o4 ( 1+$o3 .. $bits-1 ) {
                        my @bits= (0) x $bits;
                        @bits[$o0,$o1,$o2,$o3,$o4]= (1)x5;
                    }
                }
            }
        }
    }