use strict;
use warnings;

my %hash = (
        thing1 => 'one thing',
        thing2 => 'leads to another',
        All    => 'is great and glorious',
    );

print "$_ => $hash{$_}\n" for keys %hash;

%hash = sort %hash;

print "\n";
print "$_ => $hash{$_}\n" for keys %hash;