Select Code to Download

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

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