LOOP: {
        do {
            last if $x = $y**2;
            # do something here
        } while $x++ <= $z;
}