$thr = threads->new(\&sub1, "THREAD1 :");
    ...
    @ReturnData = $thr->join; 
    ...