Update: A new data point based on tye's suggestion

• substr_1: 714.54/s
  

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