use strict;

my @array = (0, 0, 0);
my $x = 0;

$array[++$x] = $x++;
print "@array\n";

$x = 0;
$array[++$x] = $x;
print "@array\n";

$x = 0;
$array[++$x] = ++$x;
print "@array\n";

##</code><code>##

0 0 0
0 1 0
0 1 2