in reply to Uninitialized array woes.

If the script does what you want, I would simply say 
no warnings 'uninitialized';

[download]
within the closest possible scope.

In Section Seekers of Perl Wisdom