use Data::Dumper;
 my %WORD =
('AALIYAH', 'AARON', 'ABBE' , 'ABBEY', 'ABBI', 'ABBIE', 'ABBIGAIL', 'ALEX');

print "FIRST HASH:\n";
print Dumper(\%WORD);

my %WORD = ('AALIYAH', 'AARON', 'ALEX', 'ABBE', 'ABBEY', 'ABBI', 'ABBIE', 'ABBIGAIL');
print "SECOND HASH:\n";
print Dumper(\%WORD);