Select Code to Download

sub tux_for {
    my ($length, $ones) = @_;
...
        0 .. oct "0b".join""=> (1) x $ones, (0) x ($length - $ones)
        ];
    }

use Algorithm::FastPermute;

...
    permute { $seen{join "" => @l}++ } @l;
    [ keys %seen ];
    }