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

##</code><code>##

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

}