tcl/itcl — итерация foreach по входному списку аргументов с двумя аргументами

У меня есть следующий код, который я написал, который должен выполнять итерацию в моем списке ввода аргументов с чтением двух аргументов на каждой итерации. Проблема в том, что он не работает так, как я написал. Я просмотрел веб-страницу Википедии Tcl/Tk, но не смог найти никакого полезного совета. Могу ли я сделать так, как я написал (без преобразования в массив)?

itcl::body class::config {args} {
if {[llength $args] > 1} {
    foreach {option value} in $args {
        if {[string length $option] == 0 || [string length $value] == 0} {
            puts "Runtime error::Bad Input: option flag or value is missing"
            return
        }
        switch --$option {
            -a { 
                if { [string is integer $value -strict] } {
                    #do something
                }
            }
            -b { 
                    if { [string is integer $value -strict] } {
                    #do something
                }
            }
        }
return }