@array[0..$#array] = @array[map{-$_}(1..@array)];