foreach $_ (split(//, lc $_, 0)) {
    ++$letters{$_};
}