$ perl -e'$x=3; CORE::say for ++$x, ++$x'
5
5