If you are somehow reverse averse and want to swap the elements in place, you can do it all in one line:

@arr[$_, -($_+1)] = @arr[-($_+1), $_] for 0..$#arr/2;
[download]

-Blake