Select Code to Download

my @lines;
$#lines = 12_000_000;
@lines = ();                 <------ was missing
push @lines, $_ while <IN>;

$ perl -e'print "abcdef\n" for 1..11_000_000' |
   perl -E'
...
      say int(`ps --no-heading -o vsz $$`/1000)
'
480