Select Code to Download

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

$j: 2    $k: 2

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

$j: 0 $k: 1