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

##</code><code>##

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