my( $signer , $sigobj ) = $pgp->verify( Signature => $sig );
    use DDS; die Dump( [ $key_id , $sigobj->key_id, unpack('H*', $sigobj->key_id ) , pack('H*',$key_id) ] );


##</code><code>##

$ARRAY1 = [
            '39F560A90D7F1559',
            "9\365`\251\r\177\25Y",
            '39f560a90d7f1559',
            "9\365`\251\r\177\25Y"
          ];


##</code><code>##

$ perl -le " print 0x39f560a90d7f1559
Integer overflow in hexadecimal number at -e line 1.
4.17635050864817e+018