my $sub1 = threads->create( \&unterfunktion);
$sub1->join();