print OUTPUT "New Student Registrations\n----------------------\n";
foreach my $Inst (sort keys %RegStudentNew) {
	if ($RegStudentNew{$Inst} ) {
			print OUTPUT "$Inst\t$RegStudentNew{$Inst}\n"; 
		}
	}


print OUTPUT "\nNew Instructor Registrations\n--------------------\n";
foreach my $Inst (sort keys %RegInstructorNew) {
	if ($RegInstructorNew{$Inst} ) {
			print OUTPUT "$Inst\t$RegInstructorNew{$Inst}\n"; 
		}
	}


print OUTPUT "\nExisting Student Registrations\n-----------------\n";
foreach my $Inst (sort keys %RegStudentExisting) {
	if ($RegStudentExisting{$Inst} ) {
			print OUTPUT "$Inst\t$RegStudentExisting{$Inst}\n"; 
		}
	}