Select Code to Download

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

# for each character, count the on bits in that character
my %bits_in;
...
        $bits_in{ $char } = $sum[ $char ];
}