$,=", ";
my $i;
print $i++, $i, $i++, $i, $i++, $i;

##</code><code>##

0, 3, 1, 3, 2, 3

##</code><code>##

use Data::Dump::Streamer;
my $i;
print Dump \($i++, $i, $i++, $i, $i++, $i);

##</code><code>##

$SCALAR1 = \do { my $v = 0 };
$SCALAR2 = \do { my $v = 3 };
$SCALAR3 = \do { my $v = 1 };
$SCALAR4 = $SCALAR2;
$SCALAR5 = \do { my $v = 2 };
$SCALAR6 = $SCALAR2;

##</code><code>##

use Data::Dump::Streamer;
print Dump \("x"=~/(x)/, $1, "y"=~/(y)/, $1, "z"=~/(z)/, $1);

##</code><code>##

$SCALAR1 = \do { my $v = 'x' };
$SCALAR2 = \do { my $v = 'z' };
$SCALAR3 = \do { my $v = 'y' };
$SCALAR4 = $SCALAR2;
$SCALAR5 = \do { my $v = 'z' };
$SCALAR6 = $SCALAR2;