in reply to uc() every other letter
@lcase = (a..z); @mixcase = map { ($f = !$f) ? uc : lc } @lcase; [download]