Почему я не могу использовать интерполированную переменную как varname?

Question

Unfortunatelly, я не выяснить, почему $alfa остается пустым:

use 5.014; 
no strict 'refs'; 

my $berta = 5; 
my $gamma = 'berta'; 
my $alfa = ${$gamma}; 

say "'$alfa'"; 

Должно быть что-то очень просто ... Я ожидал $alfa стать 5 здесь. Что я пропустил?

Answer 1

Я думаю, проблема в том, что код работает только с глобальными переменными, а не с лексическими переменными, объявленными с использованием my. See the FAQ.

our $berta = 5; 
my $gamma = 'berta'; 
say $$gamma; # 5 

Очевидно, что это не очень хорошая идея в производственном коде.