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