c:\test>perl -wle"$#a = 10; print \$_ for @a"
SCALAR(0x225138) SCALAR(0x225120) SCALAR(0x225144) SCALAR(0x225168)
SCALAR(0x1824378) SCALAR(0x224f4c) SCALAR(0x2250f0) SCALAR(0x18243cc)
SCALAR(0x18243d8) SCALAR(0x18243e4) SCALAR(0x18243f0)