sub ablauf2{ my $j = rand(10); #print "Thread $i..... $j\n"; sleep($j); }