#!/usr/bin/perl
 
X_LOOP:
for my $x (1..3) {
    Y_LOOP:
    for my $y (4..6) {
        Z_LOOP:
        for my $z (7..9) {
            if ($y == 4) {
                next Y_LOOP;
            }
            if ($z == 7) {
                print "$x $y $z go next z loop\n";
                next Z_LOOP;
            }
            if ($z < 9) {
                print "$x $y $z go next x loop\n";
                next X_LOOP;
            }
        }
    }
}
 

IyEvdXNyL2Jpbi9wZXJsCgpYX0xPT1A6CmZvciBteSAkeCAoMS4uMykgewogICAgWV9MT09QOgogICAgZm9yIG15ICR5ICg0Li42KSB7CiAgICAgICAgWl9MT09QOgogICAgICAgIGZvciBteSAkeiAoNy4uOSkgewogICAgICAgICAgICBpZiAoJHkgPT0gNCkgewogICAgICAgICAgICAgICAgbmV4dCBZX0xPT1A7CiAgICAgICAgICAgIH0KICAgICAgICAgICAgaWYgKCR6ID09IDcpIHsKICAgICAgICAgICAgICAgIHByaW50ICIkeCAkeSAkeiBnbyBuZXh0IHogbG9vcFxuIjsKICAgICAgICAgICAgICAgIG5leHQgWl9MT09QOwogICAgICAgICAgICB9CiAgICAgICAgICAgIGlmICgkeiA8IDkpIHsKICAgICAgICAgICAgICAgIHByaW50ICIkeCAkeSAkeiBnbyBuZXh0IHggbG9vcFxuIjsKICAgICAgICAgICAgICAgIG5leHQgWF9MT09QOwogICAgICAgICAgICB9CiAgICAgICAgfQogICAgfQp9Cg==