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