Help for this page

Select Code to Download

Select or download this
```
my $q='qwer';
my @a=( \$q );
```
Select or download this
```
my $a=$a[0];
print "$a\n";
```