in reply to Filling An Array

Presuming you have a reasonably modern Perl, this'll do: 
my @array = glob "{A,B,C,D,E,F,G,H}{0{1,2,3,4,5,6,7,8,9},1{0,1,2}}";

[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

In Section Seekers of Perl Wisdom