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