Select Code to Download

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

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