cat /etc/passwd | perl -e 'print join ":", @$_ for sort { $b->[2] <=> $a->[2] } map { [ split /:/, $_ ] } <>'