How can I pass a constant to a Perl subroutine?

I have got as follows:

 use constant ABC =&g开发者_开发知识库t; ('one', 'two', 'three');

and I want to pass this constant to variations_with_repetition(\@data, $k) subroutine as @data.

How should I do that?

---

Use the [] operator to convert a list to an ARRAY reference:

variations_with_repetition( [ABC] , $k );