my ($thr) = threads->create('foo');
    ...
    my @results = $thr->join();

##</code><code>##

    use threads 1.31;

    my $thr = threads->create({'list'=>1}, 'foo');
    ...
    my @results = $thr->join();


    threads->create({'context'=>'scalar'}, 'bar');
    ...
    foreach my $thr (threads->list()) {
        my $rc = $thr->join();
    }