$label->configure(-text=>'');
$label->configure(-text=> $newtext);

##</code><code>##

my $length = length $oldtext;
my $text = ' ' x $length;
$label->configure(-text=> $text);
$label->configure(-text=> $newtext);