my %freq;
++$freq{$_} for split //;