$ ./perl -wle 'for (1..10) {print \my *foo}'
GLOB(0x81b22d8)
GLOB(0x81b22f8)
GLOB(0x81b22b8)
GLOB(0x81b22d8)
GLOB(0x81b22f8)
GLOB(0x81b22b8)
GLOB(0x81b22d8)
GLOB(0x81b22f8)
GLOB(0x81b22b8)
GLOB(0x81b22d8)