如何將常量傳遞給Perl子例程？

Question

我有如下：

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

，我想通過這個常量variations_with_repetition(\@data, $k)子程序爲@data。

我該怎麼做？

Answer 1

使用[]操作員的列表轉換爲ARRAY參考：

variations_with_repetition([ABC] , $k);