perl -e'open F,"|sort|uniq"; print F "aa\n","bb\n","aa\n","bb\n"; close F'