title: iterating through several TCL arrays
body: <p>I would like to loop through one or more TCL arrays, printing a particular value, for instance.</p>
  
  <p>Perhaps best described in code:</p>
  
  <pre><code># Init
  array unset one; array set one {param 1}
  array unset two; array set two {param 2}
  
  #Works fine
  puts "one=$one(param)"
  puts "two=$two(param)"
  
  #Nope
  foreach ar "one two" {puts ${$ar(param)}}
  
  #Works, but makes a copy.
  foreach tmp "one two" {
    array unset ar
    array set ar [array get $tmp]
    puts "$tmp=$ar(param)"
  }
  </code></pre>
  
  <p>That "Works" case results in a copy (which I guess is no big deal), but it just doesn't doesn't look correct.  I'd prefer to have something more clean such as the "Nope" case (but which works :).</p>