@a = grep { not is_unwanted($_) } @a;