[0] Perl>
for my $i ( 1 .. 10 ) {
    print $i;
    if( ( $i % 2 ) == 0 ) {
        print "$i is even";
    }
};;
1
2
2 is even
3
4
4 is even
5
6
6 is even
7
8
8 is even
9
10
10 is even
[0] Perl>