my $i = 0;

{
    do {
        print $i++, $/;
        last if $i == 2;
    } while ( $i < 4);
}