my($num1,$flag)=@_;