$a = 3;
do {
    last unless $a == 4;
} while ( 1 );