for my $char (split //) {
    ++$charcount{$char};
}