while ($_ ne '') {
   $letters{lc chop}++;
}