my @keys = sort keys %$hashref;

##</code><code>##

for my $key (sort keys %$hashref) {