Исправление DRVTiny, 11.04.18 02:13 (текущая версия) :
Думаю, автор жаждёт такой ереси:
no strict 'refs'; my $arrName = 'my_array'; @{q<main::> . $arrName} = (1,2,3);
Исходная версия DRVTiny, 11.04.18 02:13:
no strict 'refs'; my $arrName = 'my_array'; @{q<main::> . $arrName}=(1,2,3);