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

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