my @sorted_dates = map $_->[0], sort { Date_Cmp($a->[1], $b->[1]) }
  map [$_, ParseDate($_)], @dates;