my $label=$frame7->Label (-text => ("Ergebnis: ".$ergebnis))->pack();

[...]

$label->configure(-text => ("Ergebnis: ".$ergebnis));