$n = 10_000_000;
print ": "; <>;                                     #   2MB
push @a, --$n while $n;
print ": "; <>;                                     # 240MB
$f = 1;
grep { if ($f) { $f = 0; print ": "; <>; } 0 } @a;  # 280MB  <--