use strict;
use warnings;
print "PID: $$\n";
{
    my @array;
    my $i = 0;
    while ($i <= 1_000_000) {

        $array[$i++]= '1234567890';# for([0..1_000_000]);
        if ($i == 1_000_000) {
            undef(@array);
        }
    }
}
print "END\n"; # BREAKPOINT HERE, MEMORY IS STILL NOT FREE