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

Question

我有如下：

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

，我想通过这个常量variations_with_repetition(\@data, $k)子程序为@data。

我该怎么做？

Answer 1

使用[]操作员的列表转换为ARRAY参考：

variations_with_repetition([ABC] , $k);