package ScrabbleScore;
use strict;
use warnings;
use Exporter qw<import>;
our @EXPORT_OK = qw<scrabble_score>;

sub scrabble_score {
  my ($word) = @_;
  my $score  = 0;
  my %letter_value;
  $letter_value{ $_ } =  1 foreach (qw( A E I O U L N R S T ));
  $letter_value{ $_ } =  2 foreach (qw( D G ));
  $letter_value{ $_ } =  3 foreach (qw( B C M P));
  $letter_value{ $_ } =  4 foreach (qw( F H V W Y));
  $letter_value{ K  } =  5;
  $letter_value{ $_ } =  8 foreach (qw( J X ));
  $letter_value{ $_ } = 10 foreach (qw( Q Z ));
  $score += $letter_value{ uc $_ } foreach ( split //, $word );
  return $score;
}

1;