$progress=50;
                $ref=\$progress;
                
	print $trace;
	print $save;

	print $ref; #Ausgabe 1

                

	$t = new threads \&actualize;
	$strategy->execute( $trace, $save, $time, $ref );
	print " Progress main $progress \n";# Ausgabe 2

	print " Ref main $ref \n"; # Ausgabe 3



	$mw->waitVariable( \$finish );