my %toplevel_1;
my %toplevel_2;

....
...
$toplevel_1{'label'} = $tl_1->Label(..etc);
$toplevel_1{'text'} = $tl_1->Text(..etc);


$toplevel_1{'label'}->configure(-text => $new_text);
$toplevel_1{'text'}->delete('1.0','end');