my @dates = qw( 2001-12-24 1999-03-2 2004-04-23 );
  print join(', ', sort { $b cmp $a } @dates );