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