precedence sorting with perl's sort()
#tags oneliners,perl

This isn't terribly complicated, but it may be useful to you. Mostly I'm putting it here for my own future reference.

<pre>
sort { $users{$b} <=> $users{$a} || $a cmp $b } keys(%users)
</pre>

This will sort first numerically by the values stored in %users and then by the keys of %users. This means that the return value of sort is the keys sorted by data values first, and then alphabetically when both data values are equal.