Select Code to Download

for (@links) {
my ($status, $reference, $project, $created) = split(/\t/, $_);
...

my @sortedComplete = sort { $a->[3] <=> $b->[3] } @complete;
my @sortedProgress = sort { $a->[3] <=> $b->[3] } @progress;