while (<PAST>) {
	next until $. > 1;
	$contents[$co] = $_;
	next if $_ =  /^done/;
	next if m/^\s+$/;
	$co++;
	}