my @sorted =
   map $_->[0],
   sort { $a->[1] cmp $b->[1] }
   map [ $_, join('', (/(..)-(..)-(....)/)[2,1,0]) ],
   @dates;  # DD-MM-YYYY