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

Tiny note: if you're favoring index over a regexp because of speed, then you should also prefer to use grep in comma form instead of with a BLOCK:
my @new = grep index($_, 'QKC_'), @orig;