sub name_of_conf
{
    my $p = shift; #die objektreferenz
    my $path = shift;    
    my @name = split /\./, $value; 
    print "In name_of_conf: name = @name\n";
    
    my $varname = '{"config_tree"}';
    while( shift @name )  {
        $varname .= "{\"" . "$value" ."\"}";
    }
    
    print "\t\tVarname = $varname,\tValue: $value,\t";
    print "dereferenced: " . $p->$varname . "\n";
    
    return $varname;
}