I'm not entirely clear on what you mean by "circling outwards" - does that imply a particular order to the points? If you just want the list of coordinates of all the points in the square, then this was my first thought (though it's shorter without the nicely arranged output):

my ($min, $max) = (-$range, $range);

for(my $y=$max; $y>=$min; $y--) {
  for my $x ($min..$max) {
    print "$x,$y\t";
  }
  print "\n";
}
[download]

--
I'd like to be able to assign to an luser