$ perl -wMstrict -e' my $q="qwer"; my @a=(\$q); print $a[0]->$*,"\n";'
qwer