my @new = grep { rindex $_, 'QKC_', 0 } @orig;

##</code><code>##

my @new = grep { substr($_, 0, 4) ne 'QKC_' } @orig;