my @aacc = ($flag == 0) ? grep{/^(?:AA|CC)/}@lines : @lines;
 my @temp = grep{/^(?:BB|DD|EE)/}@lines;