>perl -le" @in = (1..5); @out = sort { $a=$b='!'; 0 } @in; print qq{@in}"
! ! ! ! !