for (1..@foo/2) { @foo[$_-1,-$_] = @foo[-$_,$_-1]; }