my (@In, $In, @Out, $Out, $InFile, $OutFile);								# declare variables
	open $InFile, "<", "e:/File1.txt";			# open the exported file in read mode
	open $OutFile, ">>", "e:/File2";
	@In = <$InFile>;
	@Out = <$OutFile>;
	close $InFile;
	close $OutFile;
	for my $k ( 0 .. $#In ) {
		$Out[$k] = "$Out[$k],$In[$k]";
}
	open $OutFile, ">", "e:/File2.txt";			# open the outfile, deleting all content (writemode)
	print $OutFile @Out;
	close $OutFile;