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