@subset = grep(/^QKC_/, @lines);