title: Make TCL hash non case sensitive
body: <p>Is there a chance to have the hash keys in a TCL array non case sensitive?</p>
  
  <p>Obviously this doesn't work:</p>
  
  <pre><code>% set hash(aBc) Winner
  Winner
  % puts $hash(abc)
  can't read "hash(abc)": no such element in array
  %
  </code></pre>
  
  <p>Yes, I can use tolower</p>
  
  <pre><code>% set hash([string tolower dEf]) Loser
  Loser
  % puts $hash(def)
  Loser
  %
  </code></pre>
  
  <p>Just wondering if there is a faint chance for a solution that works globally on my hash?</p>
  
  <p>Thanks,
  Gert</p>