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