for my $foo (@bar) {
  {
    cond1 ? next : action1();
    cond2 ? next : action2();
    cond3 ? next : action3();
  }
  action_fallthough();
}

##</code><code>##

for (1..10) {
	print "$_ is an ";
	{
		next if $_ % 2;
		print "even ";
	}
	
	print "integer\n";
}