@array[$_,-$_-1]=@array[-$_-1,$_] for 0..$#array/2;