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