Help for this page
use Data::Dumper; my %WORD = ... 'AALIYAH' => 'AARON', 'ABBE' => 'ABBEY' };
my @names = ('AALIYAH', 'AARON', 'ABBE' , 'ABBEY', 'ABBI', 'ABBIE', 'A +BBIGAIL', 'ALEX'); my %WORD; @WORD{@names} = (); ...