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