my @names = ('AALIYAH', 'AARON', 'ABBE' , 'ABBEY', 'ABBI', 'ABBIE', 'ABBIGAIL', 'ALEX');
my %WORD;
@WORD{@names} = ();
...