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);

##</code><code>##

FIRST HASH:
$VAR1 = {
          'ABBI' => 'ABBIE',
          'ABBIGAIL' => 'ALEX',
          'AALIYAH' => 'AARON',
          'ABBE' => 'ABBEY'
        };
SECOND HASH:
$VAR1 = {
          'ALEX' => 'ABBE',
          'AALIYAH' => 'AARON',
          'ABBEY' => 'ABBI',
          'ABBIE' => 'ABBIGAIL'
        };

##</code><code>##

for ( sort keys %WORD )
{
    print "$_: $WORD{$_}\n"
}