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;