$ perl -e'
   use feature qw( say );
   use Devel::Peek;
   for(0x1p+60, 0x1p+60, 0x1p+60) {
      my $one_ref = \1;
      Dump($$one_ref);
      $_ + $$one_ref;
      Dump($$one_ref);
      say "";
   }
'
SV = IV(0x564e26c9a5d8) at 0x564e26c9a5e8
  REFCNT = 2
  FLAGS = (IOK,READONLY,PROTECT,pIOK)
  IV = 1
SV = PVNV(0x564e26c4c2c0) at 0x564e26c9a5e8
  REFCNT = 2
  FLAGS = (IOK,NOK,READONLY,PROTECT,pIOK,pNOK)
  IV = 1
  NV = 1
  PV = 0

SV = PVNV(0x564e26c4c2c0) at 0x564e26c9a5e8
  REFCNT = 2
  FLAGS = (IOK,NOK,READONLY,PROTECT,pIOK,pNOK)
  IV = 1
  NV = 1
  PV = 0
SV = PVNV(0x564e26c4c2c0) at 0x564e26c9a5e8
  REFCNT = 2
  FLAGS = (IOK,NOK,READONLY,PROTECT,pIOK,pNOK)
  IV = 1
  NV = 1
  PV = 0

SV = PVNV(0x564e26c4c2c0) at 0x564e26c9a5e8
  REFCNT = 2
  FLAGS = (IOK,NOK,READONLY,PROTECT,pIOK,pNOK)
  IV = 1
  NV = 1
  PV = 0
SV = PVNV(0x564e26c4c2c0) at 0x564e26c9a5e8
  REFCNT = 2
  FLAGS = (IOK,NOK,READONLY,PROTECT,pIOK,pNOK)
  IV = 1
  NV = 1
  PV = 0


##</code><code>##

$ perl -le'for(0x1p+60, 0x1p+60, 0x1p+60) { print $_ + 1 }'
1.15292150460685e+18
1152921504606846977
1152921504606846977

$ perl -le'for(0x1p+60, 0x1p+60, 0x1p+60) { print $_ + eval("1") }'
1.15292150460685e+18
1.15292150460685e+18
1.15292150460685e+18