Select Code to Download

my @foo;
@foo[0..2] = (10, \$foo[0], 20);
print ${ $foo[1] };  # 10

my @foo;
@foo = (10, \$foo[0], 20);
print ${ $foo[1] };  # nothing