my $college_last ='';
while (@row = $sth_report->fetchrow_array) {
  # assign $student_name etc.
  print "<h1>$college</h1>" if $college ne $college_last;
  $college_last = $college;
  # print the actual record contents
}