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