my @mixed_case = map --$| ? uc : $_, a..z;