in reply to array question

Can you please post perl code of array initialization?