Look, I'm not "support" or a "code writing service".

And "I don't know" any better strategy to teach Perl, than asking and stimulating efforts.

If you think you can do better, you are welcome to demonstrate your understanding of "support" ...

"...better strategy..."

Tja, I'm not sure.

Consider use of last:

# Some possible answers
#1: The solution is obvious.
#2: Use a block.
#3  Make it so:
KARL: {
    if ($x) {
        $y or last;
        print "Continue with the if clause\n";
    }
}
[download]

Best regards, Karl

«The Crux of the Biscuit is the Apostrophe»

perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help