Select Code to Download

use strict;
use 5.010;
...
foreach my $word (qw(abc def ghi)) {
   say $word;
}

use strict;
use 5.010;
...
   say $word;
}
say $word;  # word is "hello" here

use strict;
use 5.010;
...
   say $word;
}
# generate syntax error if $word is used here