RosettaCodeData/Task/Loops-Foreach/Tcl/loops-foreach-2.tcl

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