in reply to sorting a hash
foreach ( sort {$b <=> $a} keys %hash ){ print $_," ",$hash{$_},"\n"; } [download]
Enjoy, Mickey