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