#! perl -slw

use 5.012_000;
use strict;
use threads;

use Data::Dumper;

my %toc;
for my $i (1..3) {
	my $id = async { sleep 3*$i+5; $i };
	print Dumper($id);
	$toc{$id} = "starting thread $id, with \$i = $i";
}
print Dumper(\%toc);

sub joinable { threads->list( threads::joinable ) };
sub running { threads->list( threads::running ) };

while (my $count = scalar running) {
	sleep 1 until joinable;
	print "$toc{$_} => ", $_->join, "\n" for joinable;
}
print "all post-commands are complete\n";

##</code><code>##

$VAR1 = bless( do{\(my $o = '25730180')}, 'threads' );

$VAR1 = bless( do{\(my $o = '26709332')}, 'threads' );

$VAR1 = bless( do{\(my $o = '27250780')}, 'threads' );

$VAR1 = {
          'threads=SCALAR(0x187b454)' => 'starting thread threads=SCALAR(0x187b4
54), with $i = 3',
          'threads=SCALAR(0x193d404)' => 'starting thread threads=SCALAR(0x193d4
04), with $i = 1',
          'threads=SCALAR(0x193d5b4)' => 'starting thread threads=SCALAR(0x193d5
b4), with $i = 2'
        };

Use of uninitialized value within %toc in concatenation (.) or string at test.pl line 25.
 => 1

Use of uninitialized value within %toc in concatenation (.) or string at test.pl line 25.
 => 2

Use of uninitialized value within %toc in concatenation (.) or string at test.pl line 25.
 => 3

all post-commands are complete