Как я могу передать константу в подпрограмму Perl?

Question

Я получил следующее:

 use constant ABC => ('one', 'two', 'three');

и я хочу передать эту константу в подпрограмму variations_with_repetition(\@data, $k) как @data.

Как мне это сделать?

Answer 1

Используйте оператор [] для преобразования списка в ссылку на массив:

variations_with_repetition( [ABC] , $k );