for (0 .. 9) {

    print "$_ is ";

    print "NOT " if not iseven($_);

    print "even\n";
}