my @letters = split //, $expanded_string;
my $result = 0;
for my $letter (@letters) {
    $result = $result + $value{ $letter } * $factor{ $letter };
};

print $result;