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