Select Code to Download

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

FIRST HASH:
$VAR1 = {
...
          'ABBEY' => 'ABBI',
          'ABBIE' => 'ABBIGAIL'
        };

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