foreach command

You can use two options. The first option is to create a simple list object:

set str {test1=[foo],test2=[bar],test3=[blah]}

set mylist [list]

foreach x [split $str ","] {
    lappend mylist [lindex [split $x "="] 0]
    lappend mylist [findstr $x "\[" 1 "\]"]
}

log local0. "mylist = $mylist"
foreach y $mylist { log local0. $y }

The output of this would be:

mylist = test1 foo test2 bar test3 blah
test1
foo
test2
bar
test3
blah

Where the odd index is the key and the next even index is the value. Or you can use an array:

set str {test1=[foo],test2=[bar],test3=[blah]}

foreach x [split $str ","] {
    set thisarray([lindex [split $x "="] 0]) [findstr $x "\[" 1 "\]"]

}

foreach {index value} [array get thisarray] {
    log local0. "$index = $value"
}

It's output would be:

test1 = foo
test2 = bar
test3 = blah

And then you could access these associative array indices individually.

log local0. $thisarray(test2)