foreach {x y} {1 2 3 4} {
    puts "$x,$y"
}