my @lines; $#lines = 12_000_000; @lines = (); push @lines, $_ while ;