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