use strict;
use warnings;
my @array = qw/one two three four five/;
foreach (@array) {
  print "$_\n";
}