my @cqa_status;
foreach my $file ( @files ) {
	if($file =~ /^cqa_(.*)\.output$/i) {
		my $name = $file;
		$name =~ s/^cqa_//i;
		$name =~ s/\.output$//i;
		if( $ModNameList =~ /^(.*),$name,(.*)$/ ) {
			print "Matched $name:" . ($ModNameList =~ /^(.*),$name,(.*)$/) . "<br>\n";
			push(@cqa_status, $file);
		}
	}
}