use warnings;
use strict;

my $yodda = 0;
while ($yodda < 4) {
    redo if ++$yodda & 1;
    
    print "Even is ";
} continue {
    print "$yodda\n";
}