for (@links) {
my ($status, $reference, $project, $created) = split(/\t/, $_);
	if ($status eq "Completed") {
		push(@complete, $_);
	} else {
		push(@progress, $_);
	}
}

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