title: How to perform an arithmetic action on all the elements of a list in Tcl
body: <p>I have a very long list of values and I want to divide them all by the same number, is there a way to do this in one command instead of doing this by member:</p>
  
  <pre><code>set new_list [list ]
  foreach member $list {
      lappend new_list [expr $member / 1E9]
  }
  </code></pre>