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

##</code><code>##

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