title: tcl loop through multiple lists
body: <p>I have two lists I'd like manipulate.. ( I am a tcl newbie..). I'd like to associate these two lists and create a third list with some data added.  </p>
  
  <p>The data I have: </p>
  
  <pre><code>set aes {ae0 ae3 ae6 ae1v1 ae1v8}
  
  set c {c1 c2 c3 k1 k2} 
  
  foreach A $aes { 
  foreach C $c { 
  puts ${A}_$C
  }
  }
  </code></pre>
  
  <p>The data I get as you'd expect is: 
  ae0_c1
  ae0_c2
  ae0_c3
  ae0_k1
  ae0_k2
  ..
  ..</p>
  
  <p>What I want to do is 
  append some data in front of this.<br>
  <code>AE-To-c = All ae0_c1 ae0_c2 ae0_c3 ae0_k1 ae0_k2 .. End</code>.</p>