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

Question

我有如下:

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

我想把这个常量传递给variations_with_repetition(\@data, $k)子程序as @data.

我该怎么办？

Answer 1

使用[]运算符将列表转换为ARRAY引用:

variations_with_repetition( [ABC] , $k );