use warnings;
use strict;

for my $yodda (1 .. 4) {
    print "Odd is " and next if $yodda & 1;
    
    print "Even is ";
} continue {
    print "$yodda\n";
}