#!E:\perl\bin\perl.exe

$max_range = 3;

for $range(0..$max_range) {

        $y = $range;

        for $x(-$range..$range) {
                print "$x,$y \n";
        }

        $x = $range;
        for $y(reverse(-$range..$range)) {
                print "$x,$y \n";
        }

        $y = -($range);
        for $x(reverse(-$range..$range)) {
                print "$x,$y \n";
        }

        $x = -$range;
        for $y(-$range..$range) {
                print "$x,$y \n";
        }

}