Perl - threads

use threads;

my $th = threads->new(sub {
    for(1..10){
        print "thread says $_\n";
        sleep(rand(3)+1);
    }
});

for(1..10){
    print "main $_\n";
        sleep(rand(3)+1);
}

$th->join;
print "end\n";

use threads;
use threads::shared;
use feature qw(:5.10);

my @th;
my $v = 1;
my $v_shared : shared = 1;
my @a_shared : shared = ();
my %h_shared : shared = ();

for(1..10){
    push(@th, threads->new(sub {
        my $i = threads->tid;
        $v++;
        $v_shared++;
        push(@a_shared, $i);
        $h_shared{$i} = $i;
        local($SIG{INT}) = sub {
            say "${i} caught SIGINT!";
            threads->exit();
        };
        say "${i} start";
        my $n = int(rand(10)) + 1;
        say "${i} sleeping ${n}sec...";
        sleep($n);
        say "${i} waked up";
        say "${i} done";
    }));
}

sleep(2);
say "cleanup...";

for my $t (grep { $_->is_running } @th){
    threads->new(sub {
        $t->kill("INT")->detach();
        say "thread ". $t->tid ." detached";
    });
}

$_->join() for(threads->list(threads::joinable));

say "v = $v";
say "v_shared = $v_shared";
say "a_shared = (". join(", ", @a_shared).")";
say "h_shared = (". join(", ", map { qq|$_ => $h_shared{$_}| }(keys(%h_shared))). ")";
say "end";