print "ref $ref\n"; ref ARRAY(0x000003e8)