my @elements = qw/ 0 1 2 3 4 5 6 7 8 9 /;

$[ = 0;
print $elements[1], "\n";

$[ = 1;
print $elements[1], "\n";

if ($[ == 1) {
  $[ = 0;
  print $elements[1], "\n";
}

# The following will fail at compile time
#   $a = 0;
#   $[ = $a;  # reset
#   print $elements[1], "\n";


##</code><code>##

1
0
1