http://www.perlmonks.org?node_id=488077


in reply to Re: Spiraling integers
in thread Spiraling integers

Changing for (1 .. $n * $n ){ to for (reverse 1 .. $n * $n ){