Re[3]: How's your Perl?

[xmath]

oops, you're right, my definition of "static" in the clarification was flawed :-)

I do mean function-scoped static like in C/C++ ofcourse

btw tachyon, your #1 solution isn't:
perl -le 'my @x = ( \$_, \$_ ); $x[0]=42; print $x[1]'

[tachyon]

Read your rules. You don't specify HOW the value of $x[0] is changed :-) vis Create an array @x such that changing $x[0] also sets $x[1] to the same value While assignment is one way to change a value....

@x=(\$_,\$_);
$_=10;
print "\$x[$_] = ${$x[$_]}\n" for 0..$#x;
$_=20;
print "\$x[$_] = ${$x[$_]}\n" for 0..$#x;
__DATA__
$x[0] = 10
$x[1] = 10
$x[0] = 20
$x[1] = 20

[Juerd]

[tachyon]

I agree that it was not what was expected but it does fulfill the criteria as stated. The answer was probably supposed to be this as noted elsewhere:

$[

The index of the first element in an array, and of the first character
+ in a substring. Default is 0, but you could theoretically set it to 
+1 to make Perl behave more like awk (or Fortran) when subscripting an
+d when evaluating the index() and substr() functions. (Mnemonic: [ be
+gins subscripts.) 
As of release 5 of Perl, assignment to $[ is treated as a compiler dir
+ective, and cannot influence the behavior of any other file. --> Its 
+use is highly discouraged :-)


$[ = 1;
$x[0] = 1;
show();
$x[0] = 2;
show();
$x[1] = 3;
show();
sub show { print "\$x[$_] = $x[$_]\n" for 0..$#x; }