Select Code to Download

foreach $value (sort by_date values %H) {
  # ...
}

foreach $key (sort { by_date($H{$a},$H{$b}) } keys %H) {

}