use strict;
use warnings;

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

##</code><code>##

00011
00101
00110
01001
01010
01100
10001
10010
10100
11000