$ perl -e 'print join " ", sort 1,1,1,3,3,7'
1 1 1 3 3 7