use strict;
use 5.010;

foreach my $word (qw(abc def ghi)) {
   say $word;
}