Initial data commit

Task/Associative-array-Iteration/Tcl/associative-array-iteration-1.tcl

@@ -0,0 +1,16 @@
+array set myAry {
+    # list items here...
+}
+
+# Iterate over keys and values
+foreach {key value} [array get myAry] {
+    puts "$key -> $value"
+}
+
+# Iterate over just keys
+foreach key [array names myAry] {
+    puts "key = $key"
+}
+
+# There is nothing for directly iterating over just the values
+# Use the keys+values version and ignore the keys