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