#235 Transform list to variables in tcl

The syntax for copying values to variables is

lassign listname variable1 variable2.. variablen

Example:

set list {orange blue red green}
lassign $list var1 var2
puts $var1
puts $var2

Result:

orange
blue