in reply to syntax question
print \my($x),"\n"; print \my($x),"\n"; print \my($x),"\n"; __END__ SCALAR(0x3e8b34) SCALAR(0x98a414) SCALAR(0x98a444) [download]