my @sorted =
   map substr($_, 8),
   sort
   map join('', (/(..)-(..)-(....)/)[2,1,0], $_),
   @dates;  # DD-MM-YYYY