#! /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";