my(@cvscommits) = ("Lala", "po", "tinkywinky");
my($cvs) = join("<br>", @cvscommits);
my($updatetime) = "11";
my($line) = "<tr><td><a href=\"\\\\$COMPUTERNAME\\$softdev\\$dirtime\"<b>$COMPUTERNAME</b></a></td><td>$processors</td><td>$dirtime</td><td>$cust</td><td>$target</td><td>$cotime</td><td>$updatetime</td><td>$buildtime</td><td>$result</td><td>$cvs</td></tr>\n";

for (@testarray) {
	#find the line below
		if (/<tr><th>PC Number<\/th><th>Cores<\/th><th>Date<\/th><th>Customer<\/th><th>Target<\/th><th>C\/O Time<\/th><th>Update time<\/th><th>Build Time<\/th><th>Status<\/th><th>Changes from Last Build<\/th><\/tr>/) {

	print "Whee found it \n";
		#then add the following line *after it*
		$_ .= $line;
		last;}}
untie @testarray;  #finish the array :)