use strict;
use warnings;

my %index = (
    a => 123,
    b => 200,
    c => 700,
);
my $word = "abc";
my $sum = 0;

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

print $sum;