for $key ( sort {$a<=>$b} keys %hash) { print "($key)->($hash{$key})\n"; } [download]
In reply to How do I keep the first key in a sorted hash? by Anonymous Monk