Select Code to Download

my @d = qw( 01-13-2022  01-16-2000);
say for sort { $b cmp $a } @d;