sub sort_em {
    my %nos =  @_; #Don't make a ref just to deref it, just 
                   #pass the hash. Use 'my' to indicate 
                   #lexical scope
    print "UP:\n";
    print join "\n", sort { $nos{$a} <=> $nos{$b} } keys %nos; #just pass in short sorting routines on the line
     #of the sort

    print "\n\nDOWN:\n";
    print join "\n", sort { $nos{$b} <=> $nos{$a} } keys %nos; #same as above

}