Select Code to Download

    for my $x (0 .. $X - 1) {
        for my $y (0 .. $Y - 1) {
...
            printf "bla, bla (%d, %d)", $x + 1, $y + 1;
        }
    }

{   local $[ = 1;
    for my $x (1 .. $X) {
...
         }
    }
}