Help for this page

Select Code to Download

Select or download this

my @a = qw(a b c);
my $var = \$a[1];
...
print join ' ', $othervar, $$var, @a, "\n";
$a[1] = 'q';
print join ' ', $othervar, $$var, @a, "\n"

Select or download this
```
x 7 a 7 c
x q a q c
```