use strict;
use 5.010;

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