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