my %WORD = map ( $_ => 1 ), 
('AALIYAH', 'AARON', 'ABBE' , 'ABBEY', 'ABBI', 'ABBIE', 'ABBIGAIL', 'ALEX');