sub existsActBackup {
if (-C $_ <= @_[1])
   {    
     $tmpValue = 1;
          
    } else {  
     $tmpValue = 0;      
    }  
$rValue = $tmpValue
}