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