foreach my $key ( sort keys %hash ) { ... }