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