#!/usr/bin/perl

@words = ("one","two","three","four","five");

foreach $elem (@words){
  print "$elem\n";
}