perl - Perl サブルーチンに定数を渡すにはどうすればよいですか?

Question

私は次のように持っています：

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

variations_with_repetition(\@data, $k)この定数をとしてサブルーチンに渡したいと思い@dataます。

どうすればいいですか？

Answer 1

演算子を使用して[]、リストを ARRAY 参照に変換します。

variations_with_repetition( [ABC] , $k );