$thr = threads->new(\&initiator, @list5);
            $thr = threads->detach;

##</code><code>##

            $thr = threads->new(\&initiator, @list5);
            $thr->detach;

##</code><code>##

$thr1 = threads->new(\&manager);

while (1){sleep(1);}

##</code><code>##

manager();