print <1e6 key/value/newline> map "$_: $h{$_}\n", <1e6 ordered keys> sort <1e6 unordered keys>;

##</code><code>##

foreach $key ( <1e6 sorted items> sort <1e6 unordered items> keys %h) { 
    print "$key: $h{$key}\n"; 
}

##</code><code>##

print "$_ : $h{ $_ }\n" for sort keys %h;