use strict;
use warnings;
print $$;
my @array;
my $i = 0;
while (1) {
    $array[$i++]= '1234567890';
    if ($i == 1_000_000) {
        undef(@array); #BREAKPOINT HERE
        $i = 0;
    }
}