Select Code to Download

$ perl -MDevel::Peek -e'
   my @a = qw( a b c ); Dump(\@a,1);
...
    MAX = -1               <---- 0 slots
    ARYLEN = 0x0
    FLAGS = (REAL)

my @lines;
$#lines = 12_000_000;
$lines[$.-1] = $_ while <>;
$#lines = $.-1;