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