do {
   ++$count if $i & 1;
} while $i >>= 1;