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