$a = 3;
{
    last unless $a == 4;
    redo; # if ( ... );
}