Help for this page
# 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__
www.com | www.net | www.org
No recent polls found