Hello! It's very simple to sort date format array.

#! /usr/bin/perl -w
use strict;
use Date::Simple ('date', 'today');

my @dates = ("2010-01-27","2010-01-21","2010-02-13","2010-01-10","2009
+-12-28");

my @ordered = sort{ date($b) <=> date($a)} @dates; #descend order   

print "@ordered\n";
[download]

This is the result: 2010-02-13 2010-01-27 2010-01-21 2010-01-10 2009-12-28