my @bits;
for (128 64 32 16 8 4 2 1) {
    push @bits, ($dec & $_)  <=> 0;
}