Select Code to Download

# perl -l
my %scores = (
...
4 => 1
R => 1
5 => 1

my %scores = (
   map( { $_ =>  1 } qw( A E I L N O R S T U ) ),
...
);
print "$_ => $scores{$_}" for keys %scores;
__END__