foreach tcl tk

foreach m {file edit view} {
  puts $m
}

file
edit
view

set aa [list ab te se]

foreach g $aa {

puts $g

}

ab

te

se