in reply to how to find all lines which do not start with something

@weeded_out = grep(!/^QKC_/, @original_array);

In Section Seekers of Perl Wisdom