my @arr = (9) x 1000_000;
my $code = sub { @arr };
undef $code;