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