use strict;
use warnings;
no warnings 'void';
use threads;

use Thread::Semaphore qw( );
use Time::HiRes       qw( time );

use constant NUM_THREADS => 4;

my $t = time;

my $start_sem = Thread::Semaphore->new( 0 );
my @barrier   = map Thread::Semaphore->new( 0 ), 1 .. NUM_THREADS;

my @t = map async {
    my $id = threads-> tid - 1;

    # Wait for main thread to complete.
    $start_sem->down;

    sin for 1 .. 1e7;
    
    printf "first, %d %.3f\n", $id, time - $t;

    # Wait for all threads to reach here.
    $barrier[ $id ]->up( NUM_THREADS );
    $_->down for @barrier;

    printf "next,  %d %.3f\n", $id, time - $t;
}, 1 .. NUM_THREADS;

sin for 1 .. 1e7;

# Main thread done
$start_sem->up( NUM_THREADS );

$_->join for @t;

##</code><code>##

first, 0 0.634
first, 2 0.639
first, 3 0.646
first, 1 0.732
next,  0 0.732
next,  1 0.732
next,  3 0.732
next,  2 0.732

##</code><code>##

use strict;
use warnings;
no warnings 'void';
use threads;

use Thread::Barrier   qw( );
use Thread::Semaphore qw( );
use Time::HiRes       qw( time );

use constant NUM_THREADS => 4;

my $t = time;

my $start_sem = Thread::Semaphore->new( 0 );
my $barrier   = Thread::Barrier->new( NUM_THREADS );

my @t = map async {
    my $id = threads-> tid - 1;

    # Wait for main thread to complete.
    $start_sem->down;

    sin for 1 .. 1e7;
    
    printf "first, %d %.3f\n", $id, time - $t;

    # Wait for all threads to reach here.
    $barrier->wait;

    printf "next,  %d %.3f\n", $id, time - $t;
}, 1 .. NUM_THREADS;

sin for 1 .. 1e7;

# Main thread done
$start_sem->up( NUM_THREADS );

$_->join for @t;

##</code><code>##

first, 1 0.698
first, 2 0.702
first, 0 0.723
first, 3 0.757
next,  3 0.757
next,  1 0.757
next,  0 0.757
next,  2 0.757

##</code><code>##

use strict;
use warnings;
no warnings 'void';
use threads;

use Thread::Barrier   qw( );
use Time::HiRes       qw( time );

use constant NUM_THREADS => 4;

my $t = time;

my $barrier1 = Thread::Barrier->new( NUM_THREADS + 1 );
my $barrier2 = Thread::Barrier->new( NUM_THREADS );

my @t = map async {
    my $id = threads-> tid - 1;

    # Wait for main thread to complete.
    $barrier1->wait;

    sin for 1 .. 1e7;
    
    printf "first, %d %.3f\n", $id, time - $t;

    # Wait for all threads to reach here.
    $barrier2->wait;

    printf "next,  %d %.3f\n", $id, time - $t;
}, 1 .. NUM_THREADS;

sin for 1 .. 1e7;

$barrier1->wait;

$_->join for @t;

##</code><code>##

first, 0 0.630
first, 1 0.630
first, 2 0.632
first, 3 0.723
next,  3 0.723
next,  0 0.723
next,  1 0.723
next,  2 0.723