If you have to give more then one array to a subroutine, you have to use references.

my @array1 = (0..9);
my @array2 = ('a'..'l');

f(\@array1, \@array2);
[download]

Update: In your function you can access the arrays via the references (and change the original Arrays, or you copy them to local arrays, if you dislike the references...

sub f {
    my $aref1 = shift;
    my $aref2 = shift;

    print "$_\n" for @$aref1;
    ...
}
[download]

or

sub f {
    my @a1 = @{shift};
    my @a2 = @{shift};

    print "$_\n" for @a1;
    ...
}
[download]