Hrm.. sounds a bit like homework, but I will give you a start. (If I am wrong and not homework, I apologize), but anyhow the first thing that comes to mind is:

my @initial_array = ("A","B","C");
[download]

and a couple foreach loops. Though TMTOWTDI is sure to come into play.

Good Luck

enlil