use strict;
use threads;

my @MyThread;
my $threadcount = 15;

for (0..($threadcount-1)){
  $MyThread[$_]=threads->new(\&s,$_,10+$_);
};

if ($ARGV[0] eq 'a'){
  foreach (@MyThread){
    print qq(Return check via thread array from ) . $_->join() . qq(\n);
  }
}else{
  foreach (threads->list()){
    print qq(Return check via threads list from ) . $_->join() . qq(\n);
  }
}
#######################
sub s{
   my $a=shift;
   sleep($threadcount-$a);
   print qq(In sub s param=$a\n);
   return shift()
}