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

##</code><code>##

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