my $places = 6; for my $left (1..$places-1) { for my $right (0 .. $left -1) { printf "%0$places"."b\n", (1 << $left) | (1 << $right); } }