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