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