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

##</code><code>##

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

##</code><code>##

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