Select Code to Download

for my $date (@dates) {
    my @parts = split qr!/!, $date;
...
};

@sorted = sort @dates;