(reverse sort {$a <=> $b }keys %node)[0..9] #### (sort {$b <=> $a }keys %node)[0..9]