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

##</code><code>##

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

##</code><code>##

> perl -e 'print "$_\n" for (0..*b);'
0
> perl -e 'print "$_\n" for (0..\*b);'
0
1
2
3
4
5
6
7
(and so on)

##</code><code>##

> perl -e 'print "Yup\n" if *b;'
Yup
> perl -e 'print "Yup\n" if \*b;'
Yup

##</code><code>##

> perl -e 'print "Yup\n" if 1;'
Yup

##</code><code>##

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

##</code><code>##

> perl -e '$x = "-> " . *b . " <-"; print "$x\n";'
-> *main::b <-
> perl -e '$x = "-> " . \*b . " <-"; print "$x\n";'
-> GLOB(0x80d1f80) <-