Select Code to Download

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

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

   # .... rest of code
}

my %college;
while (my @row = $sth_report->fetchrow_array) {
...
  
   push $college{$college}, [@row];
}

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