[me]$ perl -le 'sub uniq {keys%{{map{$_,undef}@_}}} print sort +uniq 1,4,2,2'
124
[me]$

##</code><code>##

------------
:Wq
Not an editor command: Wq