use strict;
use 5.010;

foreach $word (qw(abc def ghi)) {
   say $word;
}
# generate syntax error if $word is used here