my $count;
$count += $bits_in{ chop $bits } while $bits;