I've been using a while loop and the diamond operator to process arrays. I am in a perl training class this week and the teacher had never seen this done. I believe I read somewhere in a book or on the web on how to do it this way but cannot find it. Can someone clarify whether or not this is an accepted way to loop through an array? Thanks. Here's a code snippet:

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

while (<@array>) {

     print $_;
}
[download]