my @data;

push @data, {date => '01-03-08'};
push @data, {date => '04-04-09'};
push @data, {date => '12-01-08'};
push @data, {date => '12-01-09'};
push @data, {date => '08-10-08'};


my @sorted =  sort { $a->{date} <=> $b->{date} } @data;

foreach my $res(@sorted) {

  print $res->{ date }."\n\n";

}