#our letter values
my %letter_values;
@letter_values{qw/A E I L N O R S T U/} = 1;
@letter_values{qw/D G/} = 2;
@letter_values{qw/B C M P/} = 3;
@letter_values{qw/F H V W Y/} = 4;
@letter_values{qw/J K Q X Z/} = qw/8 5 10 8 10/;

# Initialize Squares
my @premium_squares = map { [('  ') x (15) ] } 1..15;

# Triple Word
@$_[0,7,14] = '3W' for @premium_squares[0,7,14];

# Double Word
$premium_squares[$_][$_] = '2W' for 1..4,7,10..13;

# Triple Letter
@$_[5,9] = ('3L') x (2) for @premium_squares[5,9];
@$_[1,5,9,13] = ('3L') x (4) for @premium_squares[1,13];

# Double Letter
@$_[3,11] = ('2L') x (2) for @premium_squares[0,7,14];
@$_[6,8] = ('2L') x (2) for @premium_squares[2,6,8,12];
@$_[2,6,8,12] = ('2L') x (4) for @premium_squares[6,8];

## ...
[download]

~Particle *accelerates*