Select Code to Download

use strict;
use Algorithm::Loops qw( NestedLoops );
...
    @bits[@ones]= (1) x $ones;
    print join '', @bits, $/;
}

    my $bits= 8;
    for my $o0 ( 0 .. $bits-1 ) {
...
            }
        }
    }

use strict;
use Algorithm::Loops qw( NestedLoops );
...
    @bits[@ones]= (1) x $ones;
    print join '', @bits, $/;
}