use strict;

my @dirs = (qw/11-08-2004 11-10-2004 11-07-2004 11-09-2004/);

print "Using <=>:\n", join("\n", sort {$b <=> $a} @dirs), "\n\n";
print "Using cmp:\n", join("\n", sort {$b cmp $a} @dirs), "\n";

##</code><code>##

Using <=>:
11-09-2004
11-07-2004
11-10-2004
11-08-2004

Using cmp:
11-10-2004
11-09-2004
11-08-2004
11-07-2004