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;