Select Code to Download

my %value = (
    A => 1.5,
...
    B => 55/100,
    C => 60/100,
);

my @letters = split //, $expanded_string;
my $result = 0;
...
};

print $result;

$result = 1.5 * (50/100) * 2 + 2.5 * (55/100) * 2 + 3.5 * (60/100) * 2