my $h = 0x33;

for my $i (0..5) {
    for my $j (0..5) {
        for my $k (0..5) {
            printf"#%02x%02x%02x\n", $i*$h, $j*$h, $k*$h;
        }
    }
}


##</code><code>##

for $a(0..5){for $b(0..5){printf"#%02x%02x%02x\n",$a*51,$b*51,$_*51for 0..5}}