foreach my $item (@cqafiles) {
  open CQAFILE, "<$item";
  while (<CQAFILE>) {
    next unless /^CQA_STATUS,/;
    print FILE $';
  }
}