Select Code to Download

use strict;
use warnings;
...
        $i = 0;
    }
}

use strict;
use warnings;
...
    }
}
print "END\n"; # BREAKPOINT HERE, MEMORY IS STILL NOT FREE