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