> perl -e '*a = 1; print *a,"\n";'
*main::1
> perl -e '*a = *b; print *a,"\n";'
*main::b