in reply to better way to init an array ?

Just to add my 2 cents in this obfuscation contest ;-) 
my @bytes = unpack('C*',"\c^"x25);

[download]

In Section Seekers of Perl Wisdom