#!/usr/local/bin/perl -w

use strict;

$_ & 1 ? next : print "$_\n" for 1 .. 10;

my $i = 0;
$i & 1 ? next : print "$i\n" while ++$i <= 10;
__END__
2
4
6
8
10
Can't "next" outside a block at loops.pl line 8.