mdillon says:

> i would add a running total of all characters seen as well

While I agree with you that such a total would be useful, it's clearly much cheaper to compute it at the end:

    for my $symbol (keys %symbol) {
      $total += $symbol{$symbol};
    }
[download]