>perl -le"@a = qw( a b c d e ); print map { $_%2 ? uc($a[$_]) : lc($a[$_]) } 0..$#a;"
aBcDe