my $result = 0;
my $temp=0;
for my $letter (@letters) {
   $result=$result + $value{ $letter }* $factor{ $letter };
#print "$result\n";
};