The Tcl'ers Wiki is full of Tcl examples, but here's a subjective selection of short scripts that illustrate a point, so may be helpful for learners. All these are for a pure tclsh - see also Tk examples for wish scripts.
CL collected examples [L1 ] several years ago.