$ perl -e'
   use feature qw( say );
   say 0+\$x;
   { local $x; say 0+\$x; }
   say 0+\$x;
'
94031376424552
94031376229560
94031376424552