foreach tcl tk foreach m {file edit view} { puts $m} fileeditview set aa [list ab te se] foreach g $aa { puts $g } ab te se