use strict;
use 5.010;

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

##</code><code>##

use strict;
use 5.010;

my $word = "hello";
foreach $word (qw(abc def ghi)) {
   say $word;
}
say $word;  # word is "hello" here

##</code><code>##

use strict;
use 5.010;

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