#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') ;