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