#!/usr/bin/perl -wT
use strict;

for my $var (0..9) {
  print "$var is even\n" if $var%2 == 0;  # using if as a statement modifier
}