while ($_ ne '') {
   $letters{lc substr($_,-1)}++;
   substr($_, -1) = "";
}