$n=<>; @a=glob<>; for$i(1..2*$n-4){ for$p(0..$n-2){ $q=$i-$p; if($q<=$n-1&&$p<$q&&$a[$p]>$a[$q]){ @a[$p,$q]=@a[$q,$p] } } } $,=$";print@a