my $t = 1; map { ($t = 1-$t) ? EXPR_FOR_ODD : EXPR_FOR_EVEN } LIST