This post doesn't answer your question; it's about an error in your code.
Don't use
my $var = ... if ...;
Use
my $var; $var = ... if ...;
The former can leave Perl's guts in a twist.
In reply to Re: Array mysteriously growing
by ikegami
in thread Array mysteriously growing
by AntsPants
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |