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