open FILEHANDLE, "/root/Desktop/file1.txt";

open FILEHANDLE2,">>", "/root/Desktop/file2.txt";




	while (my $line = <FILEHANDLE>) {

	$line =~ /RegEx/i;

	my $telefonnummer = $1;

	my $name = $2;



		foreach (my $line2 = <FILEHANDLE2>) {
	
		$line2 =~ /RegExp/i;
		my $name2 = "$1,$2";


		if ($name =~ /$name2/i) {
	
		$line2 = "$line2;+49$telefonnummer"; } 
}
}