$sum += $index{$_} for split(//, $word);