Select Code to Download

my %records;
while( my $row = $sth->fetchrow_hashref ) { 
    push @{ $records{ $row->{start_date} } }, $row;
}

foreach my $date( sort keys %records ) { 
    print $date, "\n";
...
        print "\n";
    }
}