Initial data commit

Task/Multi-dimensional-array/Tcl/multi-dimensional-array-6.tcl

@@ -0,0 +1,15 @@
+% array set players {
+    1,name      Fido
+    1,score     0
+    1,colour    green
+
+    2,name      Scratchy
+    2,score     99
+    2,colour    pink
+}
+% foreach player {1 2} {
+    puts "$players($player,name) is $players($player,colour) and has $players($player,score) points"
+}
+Fido is green and has 0 points
+Scratchy is pink and has 99 points
+%