Yes. I quite like the idea, thank you. But how can I assign the refs to -textvariable in Tk? I'm thinking:

#in the package declaration
sub getref {
 my ($self,$index,$key) = @_ ;
 #and then, erm....
 return \$self->{'list'}[$index]{$key} ;
}

#and in the Tk block:
$widgets{'foo'} = $obj->getref( 0, 'bar') ;
[download]

That would probably work, but then I need to push a copy of the object onto a list of said object. The problem becomes essentially a Tk problem. The -textvariable option points to scalar refs that are, in turn, encapsulated by the object I build to hold the code. Bleh.