@in = $uclc eq 'lc' ? map { lc } @in : map { uc } @in;