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)

c:\test>perl -wle"@a = 0..10; print \$_, qq[ '$_'] for @a"
SCALAR(0x182bd8c) '0'
SCALAR(0x182bd98) '1'
SCALAR(0x182bda4) '2'
SCALAR(0x182bdb0) '3'
SCALAR(0x182bdbc) '4'
SCALAR(0x182bdc8) '5'
SCALAR(0x182bdd4) '6'
SCALAR(0x224f4c) '7'
SCALAR(0x2250f0) '8'
SCALAR(0x182beb8) '9'
SCALAR(0x182bec4) '10'

c:\test>perl -wle"@a = 0..10; print \$a[ $_ ], qq[ '$a[ $_ ]'] for @a"
SCALAR(0x182bdfc) '0'
SCALAR(0x182be08) '1'
SCALAR(0x182be14) '2'
SCALAR(0x182be20) '3'
SCALAR(0x182be2c) '4'
SCALAR(0x182be38) '5'
SCALAR(0x182be44) '6'
SCALAR(0x224f5c) '7'
SCALAR(0x225100) '8'
SCALAR(0x182bf28) '9'
SCALAR(0x182bf34) '10'

##</code><code>##

c:\test>perl -wle"BEGIN{ $#a = 10; print \$_ for @a }"
SCALAR(0x182c120)
SCALAR(0x182c114)
SCALAR(0x182c12c)
SCALAR(0x182c138)
SCALAR(0x182c144)
SCALAR(0x182c150)
SCALAR(0x182c15c)
SCALAR(0x182c168)
SCALAR(0x182c174)
SCALAR(0x182c180)
SCALAR(0x182c18c)