#!/usr/bin/perl

use strict;
use warnings;

MYLOOP: for(0..10){
    $_ % 2 or test();
    print $_,"\n";
}

sub test{
    print "not % 2\n";
    next MYLOOP;
}