Почему эта лексическая переменная не сохраняет свое значение после цикла?

Question

Вот мой код Perl:

use strict; 
use warnings; 

my @words = ("alpha", "bravo", "charlie"); 

(my $word = $_) foreach @words; 

print $word; 

Я ожидал бы этот код, чтобы сделать одну из двух вещей:

1. Печатают строку «чарли», которая является окончательным значением $word после цикла завершено.
2. Пожаловаться на компиляцию error, так как my $word - лексическая переменная, scope - область foreach; он не существует на последней строке.

Вместо этого, кажется, значение $word является undef и Perl поднимает предупреждение и печатает пустую строку.

Почему?

Answer 1

От perldoc perlsyn

ПРИМЕЧАНИЯ: поведение моего, состояния, или нашего модифицированный с модификатором оператора условной или петлевой конструкцией (например, мой $, если х ...) является неопределенными . Значение моей переменной может быть undef, любое ранее присвоенное значение или, возможно, что-либо еще. Не полагайтесь на это. Будущие версии perl могут сделать что-то отличное от версии perl, которую вы попробуете. Здесь будут драконы.