How can I pass a constant to a Perl subroutine?

Question

I have got as follows:

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

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

How should I do that?

Answer 1

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

variations_with_repetition( [ABC] , $k );