my $length = 3;
for (0..2**$length-1) {
    printf("%0${length}b\n", $_);
}

##</code><code>##

sub bits {
    my ($length) = @_;
    return map sprintf("%0${length}b\n", $_), 0..2**$length-1;
}