$student_name = (defined $row[1]) ? $row[1] : ' ';
$student_blah = .... ad naseum

##</code><code>##

while (my @row = $sth_report->fetchrow_array) {
   @row = map { $_ || '&nbsp;' } @row;

   # .... rest of code
}

##</code><code>##

my %college;
while (my @row = $sth_report->fetchrow_array) {
   @row = map { $_ || '&nbsp;' } @row;
   my $college = pop @row;
  
   push $college{$college}, [@row];
}

##</code><code>##

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