sub test
{
    my $number = shift;
    my $arrayref1 = shift;
    my $arrayref2 = shift;
    # remember to dereference: @$arrayref1 etc.
}
# .........
my @a = ("mary","had","a","little","lamb","!");
my @b = ("London","Bridge","is");
# call sub
test(3,\@a,\@b);