Statement Perl

#!/usr/local/bin/perl 
@words = ("Here", "is", "a", "list."); 
foreach $word (@words) { 
   print ("$word\n"); 
}