@A = map { uc(is_name($_)) } grep { is_name($_) } @a;