# 1: $[=1; @x = (10); # confirm it: print $x[0], ",", $x[1], "\n"; $x[1]=20; print $x[0], ",", $x[1], "\n"; $x[0]=30; print $x[0], ",", $x[1], "\n";