Select Code to Download

#!/usr/bin/perl
@dates = ('20130401', '20130501', '20130601');
...
$c <=> $d;
}
print "@ordered\n";

20130501 20130401 20130601

20130501 20130401 20130601