#!/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==