my $sum = 0;
while ( $word =~ /(.)/g ) {
    $sum += $freq{ $1 };
}
print "Sum: $sum\n";