my $q='qwer';
my @a=( \$q );

##</code><code>##

my $a=$a[0];
print "$a\n";