Help for this page
if( defined $verzeichnis{lc $name2} ) { print $new ";+49".$verzeichnis{lc $name2}; }