Suppose #main.pl Request::aaa(@a1, @a2); package Request; sub aaa(@@) { my (@array1,@array2)= @_; }