for my $x (0 .. $X - 1) {
        for my $y (0 .. $Y - 1) {
            # Do something with $array[$x][$y]
            printf "bla, bla (%d, %d)", $x + 1, $y + 1;
        }
    }

##</code><code>##

{   local $[ = 1;
    for my $x (1 .. $X) {
        for my $y (1 .. $Y) {
            # Do something with $array[$x][$y]
            print "bla, bla ($x, $y)";
         }
    }
}