proc dset {name value} {
    uplevel 1 "set $name $value"
    uplevel 2 "set $name $value"
}


proc init {args} {
    dset noOfIpIf 1
    dset noOfHosts 1

    if {[llength $args] != 0} {
        foreach {name value} $args {
            if {[info exists $name]} {
                dset $name $value
            } else {
                puts "Variable \"$name\" does not exist!"
            }

        }
    }

    puts "INIT noOfIpIf = $noOfIpIf"
    puts "INIT noOfHosts = $noOfHosts"
}

proc test {} {
    init noOfIpIf 3 noOfHosts 10 ololo 123123
    puts "noOfIpIf = $noOfIpIf"
    puts "noOfHosts = $noOfHosts"
}

test