Select Code to Download

my @list = ('2005-12-01', '2005-11-02', '2005-12-07');
@list = sort @list;
print join "\n", @list;

@list = reverse sort @list;

use strict;
use warnings;
...
@sort;

print join "\n", @sort;