sub foo{
    my $var = 'xyz' x 1_000_000;
}

sub bar{
    my $var2 = 'xyz' x 1_000_000;
}

warn "ONE\n";
foo();
warn "TWO\n";
foo();
warn "THREE\n";
bar();
warn "FOUR\n";