#!/usr/bin/perl

use strict;
use warnings;

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

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