proc inArray {liste arrayName {usePrefix true}} {
   upvar $arrayName array
   set prefix 0;

   set keys {}
   foreach kv $liste {
      if {[string match "" $kv]} {
	 incr prefix;
	 continue;
      }
      regexp {([[:print:]]+)=([[:print:]\ ]*)} $kv gesamt key value
      if $usePrefix {
	 set array($prefix,$key) $value
      } else {
	 set array($key) $value
      }
   }
   set array(length) [incr prefix]
}