Select Code to Download

14:08 >perl -wE "my @a = (1, 3, 7); say @a; say [@a]; say length[@a];"
137
...
15

14:11 >

for ($ctr = $#data_array; $ctr >= 0; $ctr--) {

for (reverse 0 .. $#data_array) {

14:49 >perl -wE "my @x = (12, 34, 567); say $x[3];"
Use of uninitialized value in say at -e line 1.


14:50 >