Foreach Loops

#!/usr/local/bin/perl
#demonstates the foreach statement

@words = ("Here", "is", "a", "list.");
foreach $word (@words) {
        print ("$word\n");
}