#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my $i = 1;
while ($i <= 10) {
    say $i;
    if ($i % 2) {
        say 'Skipping an odd number.';
        next
    }
} continue {
    ++$i;
}