for( 1..10) {  
    $_ & 1 and warn "odd" and next; 
    print "$_ is good and even" 
};;

odd at (eval 7) line 1, <STDIN> line 6.
2 is good and even
odd at (eval 7) line 1, <STDIN> line 6.
4 is good and even
odd at (eval 7) line 1, <STDIN> line 6.
6 is good and even
odd at (eval 7) line 1, <STDIN> line 6.
8 is good and even
odd at (eval 7) line 1, <STDIN> line 6.
10 is good and even