如何将常量传递给Perl子例程？

Question

我有如下：

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

我希望将此常量作为variations_with_repetition(\@data, $k)传递给@data子例程。

我该怎么做？

Answer 1

使用[]运算符将列表转换为ARRAY参考：

variations_with_repetition( [ABC] , $k );