>perl -le"$t=1; print map { (++$t % 2) ? uc : lc } qw( a b c d e );"
aBcDe