Help for this page
@in = map { $uclc eq 'lc' ? lc : uc } @in;
@in = $uclc eq 'lc' ? map { lc } @in : map { uc } @in;