open my $fh, "<", "/root/Desktop/file1.txt";
my %verzeichnis;
while (my $line = <$fh>) {
    $line =~ /RegEx/i;
    my $telefonnummer = $1;
    my $name = $2;
    $verzeichnis{lc $name} = $telefonnummer;
}
close $fh;

##</code><code>##

open my $fh2, "<", "/root/Desktop/file2.txt";
open my $new, ">", "/root/Desktop/file2.new";
while (my $line2 = <$fh2>) {
    chomp $line2;
    $line2 =~ /RegEx/i;
    my $name2 = "$1,$2";
    print $new $line2;
    if( defined $verzeichnis{lc $name2} ) {
        print $new ";+49".$verzeichnis{lc $name2}; 
    }
    print $new "\n";
}
close $fh2;
close $new;