Select Code to Download

my $found = -1 != index $item, 'CQA_STATUS';

my @stats = grep (/CQA_STATUS/) @cqafiles;

use strict;
use warnings;
...
    }

close(FILE) || die "can't close$cqapath/CQA_STATUS after writing\n";