sub test
{
   my $number = shift;
   my @array1 = shift;
   my @array2 = shift;
   # do your stuff
}
........................
my @a = ("mary","had","a","little","lamb","!");
my @b = ("London","Bridge","is");
# call sub
test(3,@a,@b);