sub foo {
   my $var = "X" x 10_000_000;
}
foo();