Select Code to Download

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"@b = 1.. 10; $#a = 10; print \$_ for @a"
Name "main::b" used only once: possible typo at -e line 1.
...
SCALAR(0x225138) SCALAR(0x225120) SCALAR(0x225144) SCALAR(0x225168)
SCALAR(0x18243b0) SCALAR(0x1824428) SCALAR(0x1824434) SCALAR(0x1824440
+)
SCALAR(0x182bd80) SCALAR(0x182bd8c) SCALAR(0x182bd98)

c:\test>perl -wle"@b = 1.. 1000; $#a = 10; print \$_ for @a"
Name "main::b" used only once: possible typo at -e line 1.
SCALAR(0x225138) SCALAR(0x225120) SCALAR(0x225144) SCALAR(0x225168)
SCALAR(0x18243b0) SCALAR(0x1824428) SCALAR(0x1824434) SCALAR(0x1824440
+)
SCALAR(0x2267c8) SCALAR(0x2267d4) SCALAR(0x2267e0)

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)