Select Code to Download

print "    collectionTime";
for my $db_keys (sort keys %db){
    print "    $db_keys";          # adjust spaces to line things up
}
print "\n";

for my $h_keys (sort keys %h){
    print $h_keys;                         # print the date/hour
...
   }
   print "\n";  # this goes outside the inner loop, to end the line
}