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

##</code><code>##

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

##</code><code>##

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