use warnings;
use strict;
use threads;
use feature 'say';

my @go_do_something = (1 .. 10);

sub some_sub {
    say "Thread #$_ started";
    sleep(rand(10));
    say "Thread #$_ complete";
}

my @threads;

push @threads, threads->new(\&some_sub, $_) for @go_do_something;
say "All threads started.";
$_->join for @threads;
say "All threads joined. Exiting.";