Select Code to Download

{
    local $, = "\n";
    print( ( sort { $hash{$b} <=> $hash{$a} } keys %hash )[0..9] );
}

foreach my $key ( (sort {$hash{$b} <=> $hash{$a} } keys %hash )[0..9] 
+) {
    print $key, "\n";
}

sort { $hash{$b} <=> $hash{$a} or $a cmp $b } keys $hash