Select Code to Download

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

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

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