#!perl -w
use strict;
use Ruby -all;
use threads;
sub thr{
my $i = 0;
for(1 .. 10){
Thread->new(sub{
puts $i;
});
}
}
my @thr;
for(1 .. 5){
push @thr, threads->new(\&thr);
}
for(reverse @thr){
$_->join();
}
#!perl -w
use strict;
use Ruby -all;
use threads;
sub thr{
my $i = 0;
for(1 .. 10){
Thread->new(sub{
puts $i;
});
}
}
my @thr;
for(1 .. 5){
push @thr, threads->new(\&thr);
}
for(reverse @thr){
$_->join();
}