$n = 10_000_000;
print ": ";  <>;                                         #   2MB
$f = 1;
grep { if ($f) { $f = 0; print ": "; <>; } 0 } 0..$n-1;  # 240MB  <--