# Opens file 
$file3 = "c:\\users\\plor\\desktop\\Presc_count2.txt";
$file4 = "c:\\users\\plor\\desktop\\Presc_count3.txt";

 open INPUT2, ">", $file4 or die $!;
 open OUTPUT2, "<", $file3 or die $!;

while ($t2 = <OUTPUT2>) {
	@lines = split /s+/, $t2;
	print "$lines[0],$lines[1]\n";
	}
}


close(OUTPUT2);
close(INPUT2);