my $var="Ergebnis: ".$ergebnis;
$frame7->Label (-textvariable => \$var)->pack();

[...]

$var="Ergebnis: ".$ergebnis;