perl launch threads in an array variable?

Shell Programming and Scripting
1

Im having a problem launching multiple sub routines as threads. My script seems to stop when the first thread is launched.

Im condensing the code for simplification here:

#!/usr/bin/perl -w
use strict;
use threads;

srand;
my ($cnt,$line,$iprange_rand);
my (@iprange,@rcodes,@checkid,@rettxt);

...

sub mysub ()
{ my argvar=$_[0];
  while ( 1 == 1 )
  { my argvar=$_[0]; 
    system("/bin/echo","$argvar");
    select(undef, undef, undef, 0.001);
  }
}

my @thrSub;
for ( $cnt = 0; $cnt <= 24; $cnt++ )
{ $thrSub[$cnt]=threads->new(\&mysub([$cnt]));
}

any ideas why it hangs on launching the first thread?

2

what is nsca_junk?

3

I forgot to clean that up, it should read mysub. My variable names are not always politically correct so I try to change them before posting.