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