foreach(@list){
$th = threads->create("ping","$_");
# $th->join;   # new thread is NOT created until join
               # not what I want!
}

##</code><code>##

foreach(@list){
    push @childs, threads->create("ping","$_");
}
...
foreach $child (@childs){
    $child->join();
}