@lcase = (a..z);
@mixcase = map { ($f = !$f) ? uc : lc } @lcase;