my $i = 0;
my ($j, $k) = (++$i, ++$i); #Pre-increment
print "\$j: $j\t\$k: $k\n";

##</code><code>##

$j: 2	$k: 2

##</code><code>##

$j: 1	$k: 2

##</code><code>##

my $i = 0;
my ($j, $k) = ($i++, $i++); #Pre-increment
print "\$j: $j\t\$k: $k\n";

##</code><code>##

$j: 0	$k: 1