yes, but better sort numerically than lexicographically:

    foreach my $date ( sort { $a <=> $b } keys %{ $data{$cat} }) {
#                           ^^^^^^^^^^^^^
[download]