$num1=Math::BigInt->new("0x".$source);