Select Code to Download

if ($row->{start_date} ne $last_date && (split/:/,$row->start_time)[0]
+ > 9) {

use Time::Local;
...
...
    print join('-', @l), "\n";
    print $_,"\n" for @{$hash{$key}};
}