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

##</code><code>##

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

##</code><code>##

map {BLOCK} LIST

##</code><code>##

for (LIST) {BLOCK}