use warnings; use strict; sub Request::aaa(\@\@); #main.pl my @a1 = qw (the quick brown fox); my @a2 = qw (theres more than one way); Request::aaa(@a1, @a2); package Request; sub aaa(\@\@) { my @array1 = @{shift()}; my @array2 = @{shift()}; } 1; #### use warnings; use strict; #main.pl my @a1 = qw (the quick brown fox); my @a2 = qw (theres more than one way); Request::aaa(\@a1, \@a2); package Request; sub aaa { my @array1 = @{shift()}; my @array2 = @{shift()}; } 1;