for ( (sort {$hash{$b} <=> $hash{$a}} keys %hash)[0..9] ) {    last unless defined;    print "$_ => $hash{$_}\n"; }