Select Code to Download

@dates = ('20130601', '20130401', '20130501');
my @sorted =
...
   map [ $_, join('', (/(..)(..)(....)/)[0,1,2]) ],
   @dates;  # DD-MM-YYYY
print "@sorted\n";

20130401 20130501 20130601