in reply to better way to init an array ?

Hmmm, this'll do it... 
@bytes = grep 'nudity', ("30") x 25;

[download]
...although the use of nudity is gratuitous.

In Section Seekers of Perl Wisdom