my $result = 1; for my $letter (@letters) { $result *= $value{ $letter } * $factor{ $letter }; };