perl -e'print $_->[0] for sort { $b->[3] - $a->[3] } map [$_, split /:/], <>' /etc/passwd