Run this with an odd argument (like 3) to get a magic square :-)

print"@{$_=++$_%@F+$p--%@F*@F+1for@F,$p;F}
"for@F=0..~-pop
[download]