# for each character, count the on bits in that character
my %bits_in;
foreach my $char ( map { chr } 0 .. 255 ) {
        $bits_in{ $char } = $sum[ $char ];
}