my ($x, $y) = ($range, $range);
  while ($x > -$range) { print "$x,$y\n"; $x-- }
  while ($y > -$range) { print "$x,$y\n"; $y-- }
  while ($x < $range)  { print "$x,$y\n"; $x++ }
  while ($y < $range)  { print "$x,$y\n"; $y++ }