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;
        }
    }