use List::Util qw/ sum /;

sub score_word { sum( @letter_points{ split //, $_[ 0 ] } ) }