DB<1> $arr=[]
 
  DB<2> bless $arr,"_SEEN_"
 
  DB<3> p ref $arr
_SEEN_
  DB<4> bless $arr,"_UNSEEN_"
 
  DB<5> p ref $arr
_UNSEEN_