> perl -e 'print scalar(*b),"\n";'
*main::x
> perl -e 'print scalar(\*b),"\n";'
GLOB(0x80d1f4c)