#!/usr/local/bin/perl 

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