open(LIST, "| sort -n| uniq"); 

##</code><code>##

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

##</code><code>##

aa
bb