Deparse is cool!:

perl -MO=Deparse -e "$letters{$_}++ for split //, lc;" gives

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

Which I imagine you can understand.

--
I'd like to be able to assign to an luser