in reply to Re^2: Sorting the hash
in thread Sorting the hash

You just need to change: 

print Dumper($x);

[download]
to: 
print Dumper(\%x);

[download]

In Section Seekers of Perl Wisdom