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";