sub BigHex{ 
    my ($int,$long) = unpack'nN', pack 'H*', $_[0]; 
    return 2**32 * $int + $long 
}