for(sort { $a->[0] <=> $b->[0] } map { [ Date::Parse::str2date($_) => chomp ] } keys %h) {
    print "$_->[1]: $h{"$_\n"}\n;
}