tcl array example

Example: tcl get array size

% array set arr {foo 1 bar 2 grill 3}
% array size arr
3