my $protein = <>;
my $sum;
$sum += $mass{$_} for split //, $protein;
print $sum;