my $i = my $j = 0;
while ($i++ < 5) {
    next if $i == 2 || $i == 4;
    print "i:$i\n";
}
continue {
    $j++;
    printf "j:$j\n";
}

##</code><code>##

my $yodda = 0;
while ($yodda < 6) {
    last if $yodda == 5;
    redo if ++$yodda & 1;

    print "Even is ";
} continue {
    print "$yodda\n";
}