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

##</code><code>##

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