Perl 서브 루틴에 상수를 전달하려면 어떻게해야합니까?

Question

다음과 같이 내가 가지고 :

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

을 내가 @data로 variations_with_repetition(\@data, $k) 서브 루틴이 일정하게 전달하려는.

어떻게해야합니까? 배열 레퍼런스 목록 변환

Answer 1

사용 [] 연산자

variations_with_repetition([ABC] , $k);