Perl> print "$_: ", $_ % 2 
    for 1e308, 1e308 + 1, 
        1.999999999999999, 1.9999999999999999999;;
1e+308:  0
1e+308:  0
2:  1
2:  0

##</code><code>##

use Devel::Peek;;
$n = 9_999_999_998; 
print Dump( $n ); 
print $n & 1; 
print Dump( $n );;

SV = NV(0x1844044) at 0x19920c4
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  NV = 9999999998

1
SV = PVNV(0x1985a0c) at 0x19920c4
  REFCNT = 1
  FLAGS = (NOK,pIOK,pNOK,IsUV)
  UV = 4294967295
  NV = 9999999998
  PV = 0