$ perl -e '$c = 12;print reverse map {vec $c,$_,1}  0..8*length($c)-1;'
0011001000110001


##</code><code>##

$ perl -e '$c = 12;print reverse map {$c&1<<$_?1:0}  0..8;'
000001100