$eins->{DATE}="2005-01-01";
$zwei->{DATE}="2005-01-02";
$drei->{DATE}="2004-12-20";
$eins->{ID}=1;
$zwei->{ID}=2;
$drei->{ID}=5;
@liste=($eins,$zwei,$drei);
my @sort_liste = sort { $b->{DATE} <=> $a->{DATE} } @liste;
for ( @sort_liste ) { print "datum: ",$_->{DATE}, "\n";
                           print " id: ",$_->{DATE},"\n";}

datum: 2005-01-01
id: 1
datum: 2005-01-02
id: 2
datum: 2004-12-20
id: 5



 das gleiche aber mit "cmp" ergibt


datum: 2005-01-02
id: 2
datum: 2005-01-01
id: 1
datum: 2004-12-20
id: 5