my %char_cnt;
++$char_cnt{$_} for split //, $str;