Select Code to Download

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