foreach $line (@proglines) {
	$line = "\t$line";
	$line .= "\n";
}
print "@proglines";