that's easy. It's not so easy if I don't know, in advance, how many lines like the above I need nor what to use for the variable name in each case.

you don't need lines, you need a loop

Tk::ObjScanner and Tk::WidgetDump use loops, you can use them too