@array = qw(blue, red, orange, brown);

while (<@array>) {

     print $_;
}