Fencepost error. I think you mean:

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

The middle pair was swapped twice to no effect for even sized arrays, the middle element swapped with itself for odd.

After Compline,
Zaxo