Your 32-bit solution is deficient.

In that it fails for the 9 quadrillion integers between 2**32 ad 2**53 that 32-bit Perls can happily represent.