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