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

##</code><code>##

>perl -MDevel::Peek -le "for(0x1p+60, 0x1p+60, 0x1p+60) { Dump $_ + 1 }"