use List::Util qw(sum)
my $sum = sum map $index{$_}, split //, $word;