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