while () { $count{$_}++ for split //, lc; }