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