Select Code to Download

my $thr1 = threads->new(\&process3, 0,$endline, "c001n05");
my $thr2 = threads->new(\&process3, 0,$endline, "c001n06" );
...
$thr1->join();
$thr2->join();
...

my @thr;

...
}

$_->join () for @thr;