Select Code to Download

sub mdy2ymd {
    my ($mdy) = @_;
...
my @filtered = sort {
  mdy2ymd($a->{Date}) cmp mdy2ymd($b->{Date})
} @$data;