>perl -le"$i=3; print 0+$i,$i,++$i,$i"
3444