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;