Select Code to Download

sub sort_em {
...
    print join "\n", sort { $nos{$b} <=> $nos{$a} } keys %nos; #same a
+s above

}