for my $key (sort keys %hash)