my $foo = 'asdf' x 1000;

for (1..900000) {
    my $outer_sub = sub {
        my $inner_sub = sub { $foo };
    }
}