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