$ perl -E'$i=0; ($j, $k) = (++$i,   ++$i);   say "j:$j k:$k";'
j:2 k:2

$ perl -E'$i=1; ($j, $k) = ($i++,   $i++);   say "j:$j k:$k";'
j:1 k:2

$ perl -E'$i=0; ($j, $k) = (++$i+0, ++$i+0); say "j:$j k:$k";'
j:1 k:2