in reply to process array with while loop

A little off subject, but very useful for testing. 
while (<DATA>) {
     print $_;
}

__DATA__
blue
red
orange
brown

[download]

In Section Seekers of Perl Wisdom