Select Code to Download

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

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