shell> perl -le '*a::=*b::; print bless [], "a"'
b=ARRAY(0x8107f70)