perl -e '@a=(1,5,3);@b=sort @a; print "@a\n"; print "@b\n";' #### 1 5 3 1 3 5