for($a=0;$a<=$counter;$a++){  
if($choice==1){  
$thr[$a] = threads->create({'exit'=> 'thread_only'},sub {&ext1::submit($file)});  
}  
else  
{  
$thr[$a] = threads->create({'exit'=> 'thread_only'},sub {&ext1::reset($file)});  
}  
$result[$a]=$thr[$a]->is_running();  
} 
$sum_a=sum(@result); 
while($sum_a!=0) 
{ 
for($a=0;$a<=$counter;$a++){ 
$result[$a]=$thr[$a]->is_running();} 
$sum_a=sum(@result); 
} 
print("Operation finished\n");