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