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

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