### "Sequence Number,$First_Name,$Last_Name,$Middle_Name,$Prefix,$Suffix,$ID_number,$Donor_Category,$Alumni_ind,$Friend_ind,$Fac_staff_ind,$Highest_Gift,$Delivery Address,$Alternate 1 Address,$Alternate 2 Address,$Alternate_3_Address,$City,$St,$ZIP+4,$Country,$Full Name,$SALUTATION,$PREF_CLASS_YEAR,$PREF_SCHOOL_CODE,$PREF_SCHOOL,$APEAL_CODE,$DEG_SCHOOL_CODE1,$DEG_SCHOOL_CODE2,$DEG_SCHOOL_CODE3,$DEG_SCHOOL_CODE4,$DEG_SCHOOL_CODE5,$DEG_SCHOOL_CODE6,$GIVE_SCHOOL_CODE1,$GIVE_SCHOOL_CODE2,$GIVE_SCHOOL_CODE3,$GIVE_SCHOOL_CODE4,$COMPANY_NAME1,$COMPANY_NAME2,$COMPANY_NAME3,$BUSINESS_STREET2,$BUSINESS_STREET3,$BUSINESS_STREET4,$BUSINESS_CITY,$BUSINESS_ST,$BUSINESS_ZIP,$BUSINESS_COUNTRY,$PREF_ADDR_TYPE_CODE,$RECORD_TYPE_CODE,$ASK1,$ASK2,$ASK3,$SP_ALUMNI_IND,$SP_FRIEND_IND,$SP_FAC_STAFF_IN,$SP_HIGHEST_GIFT,$SPOUSE_ID_NUMBER,$SP_FIRST_NAME,$SP_MIDDLE_NAME,$SP_LAST_NAME,$SP_MAIL_NAME,$SP_CLASS_YEAR,$SP_PREF_SCHOOL,$SP_PREF_SCHOOL_CODE,$SP_DEG_SCHOOL_CODE1,$SP_DEG_SCHOOL_CODE2,$SP_DEG_SCHOOL_CODE3,$SP_DEG_SCHOOL_CODE4,$SP_DEG_SCHOOL_CODE5,$SP_DEG_SCHOOL_CODE6,$SP_GIVE_SCHOOL_CODE1,$SP_GIVE_SCHOOL_CODE2,$SP_GIVE_SCHOOL_CODE3,$SP_GIVE_SCHOOL_CODE4,$SP_COMPANY_NAME1,$SP_COMPANY_NAME2,$SP_BUS_STREET1,$SP_BUS_STREET2,$SP_BUS_STREET3,$SP_BUS_STREET4,$SP_BUS_CITY,$SP_BUS_ST,$SP_BUS_ZIP,$SP_BUS_COUNTRY,$SP_RECORD_TYPE_CODE,$,$,$,$,$,$,$,$,$,$,$,$,$,$,$,$"
### "ID_number","DEG_SCHOOL_CODE1","DEG_SCHOOL_CODE2","DEG_SCHOOL_CODE3","DEG_SCHOOL_CODE4","DEG_SCHOOL_CODE5","DEG_SCHOOL_CODE6","GIVE_SCHOOL_CODE1","GIVE_SCHOOL_CODE2","GIVE_SCHOOL_CODE3","GIVE_SCHOOL_CODE4","SP_DEG_SCHOOL_CODE1","SP_DEG_SCHOOL_CODE2","SP_DEG_SCHOOL_CODE3","SP_DEG_SCHOOL_CODE4","SP_DEG_SCHOOL_CODE5","SP_DEG_SCHOOL_CODE6","SP_GIVE_SCHOOL_CODE1","SP_GIVE_SCHOOL_CODE2","SP_GIVE_SCHOOL_CODE3","SP_GIVE_SCHOOL_CODE4","Give_Unit_1","Give_unit_2","Give_unit_3","Give_unit_4","Sp_give_unit_1","sp_give_unit_2","sp_give_unit_3","sp_give_unit_4"
### "DEG_SCHOOL_CODE1","DEG_SCHOOL_CODE2","DEG_SCHOOL_CODE3","DEG_SCHOOL_CODE4","DEG_SCHOOL_CODE5","DEG_SCHOOL_CODE6","SP_DEG_SCHOOL_CODE1","SP_DEG_SCHOOL_CODE2","SP_DEG_SCHOOL_CODE3","SP_DEG_SCHOOL_CODE4","SP_DEG_SCHOOL_CODE5","SP_DEG_SCHOOL_CODE6","ID_number"

open (OUTPUT,">321868_UB_CYE_ToBCC_Rnd2.txt");
open (INPUT,"321868_UB_CYE_FromBCC_Rnd2.txt");
$arraysizemax=0;
print OUTPUT "ID,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16\n";
foreach $line (<INPUT>){
	chomp $line;
		$line =~ s/\"//g;
		$line =~ s/0232-MUE/0232/g;
			$line =~ s/0232-LIS/0232/g;
			$line =~ s/0232-MUE/0232/g;
			$line =~ s/0301-0304/0301/g;
			$line =~ s/0301-CE/0301/g;
			$line =~ s/0030/9999/g;
			$line =~ s/0031/9999/g;
			$line =~ s/0884/9999/g;
			$line =~ s/0716/9999/g;
			$line =~ s/0377-ACCT/0377,0377-ACCT/g;
			$line =~ s/0508-BCP/0508/g;
			$line =~ s/0508-MCH/0508/g;
			$line =~ s/0508-PHC/0508/g;
			$line =~ s/0528/0456/g;
			$line =~ s/0494-NAN/0494/g;
			$line =~ s/0494-NRN/0494/g;
				$line =~ s/1084-AAS/1084D,1084/g;             
				$line =~ s/1084-APY/1084D,1084/g;             
				$line =~ s/1084-ART/1084D,1084/g;             
				$line =~ s/1084-AS/1084D,1084/g;             
				$line =~ s/1084-BIO/1084D,1084/g;             
				$line =~ s/1084-CDS/1084D,1084/g;            
				$line =~ s/1084-CHE/1084D,1084/g;            
				$line =~ s/1084-CL/1084D,1084/g;              
				$line =~ s/1084-COL/1084D,1084/g;             
				$line =~ s/1084-COM/1084D,1084/g;             
				$line =~ s/1084-DMS/1084D,1084/g;             
				$line =~ s/1084-ECO/1084D,1084/g;             
				$line =~ s/1084-ENG/1084D,1084/g;             
				$line =~ s/1084-FR/1084D,1084/g;              
				$line =~ s/1084-GEO/1084D,1084/g;             
				$line =~ s/1084-GGS/1084D,1084/g;             
				$line =~ s/1084-GLY/1084D,1084/g;             
				$line =~ s/1084-HIS/1084D,1084/g;             
				$line =~ s/1084-HMN/1084D,1084/g;             
				$line =~ s/1084-ITA/1084D,1084/g;             
				$line =~ s/1084-LIN/1084D,1084/g;             
				$line =~ s/1084-MCH/1084D,1084/g;             
				$line =~ s/1084-MD/1084D,1084/g;              
				$line =~ s/1084-MTH/1084D,1084/g;             
				$line =~ s/1084-MUE/1084D,1084/g;             
				$line =~ s/1084-MUP/1084D,1084/g;             
				$line =~ s/1084-MUS/1084D,1084/g;             
				$line =~ s/1084-PHC/1084D,1084/g;             
				$line =~ s/1084-PHI/1084D,1084/g;             
				$line =~ s/1084-PHY/1084D,1084/g;             
				$line =~ s/1084-PSC/1084D,1084/g;             
				$line =~ s/1084-PSY/1084D,1084/g;             
				$line =~ s/1084-SMA/1084D,1084/g;             
				$line =~ s/1084-SOC/1084D,1084/g;             
				$line =~ s/1084-SPA/1084D,1084/g;             
				$line =~ s/1084-SSC/1084D,1084/g;            
				$line =~ s/1084-TD/1084D,1084/g;                           
				$line =~ s/1084-TH/1084D,1084/g;             
	use Array::Unique;
 tie @schools, 'Array::Unique';
	@schools = split(/,/,$line);
 $id=pop(@schools);
 @allow = ("0226","0232","0372","0377","0377-ACCT","0424","0448","0456","0494","0508","1084D","1084","9999","0719","0301");
 %original = ();
 @intersect = ();
 
 map { $original{$_} = 1 } @schools;
 @intersect = grep { $original{$_} } @allow;

 
 
 @intersect = sort @intersect;
   local $" = ',';
##"
$arraysize = @intersect;
if ($arraysize eq 0) {print "$id\n";}
if ($arraysize gt $arraysizemax) {$arraysizemax=$arraysize}
print OUTPUT "$id,@intersect\n";

	}
	
	
	print "$arraysizemax";