foreach my $college (keys %college) {
	print "$college:\n";
	foreach my $row (@{$college{$college}}) {
		print "\t", join(', ', @$row),"\n";
	}
}