##
# 1 2 3 4
# 123456789012345678901234567890123456789012
perl -e'print sort{(@x=split":",$a.$b)[8]-$x[2]}<>' /etc/passwd
##
##
# 1 2 3 4
# 1234567890123456789012345678901234567890
perl5.8.9 -e'print sort{split":",$a.$b;$_[8]-$_[2]}<>' /etc/passwd