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