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

f(\@array1, \@array2);

##</code><code>##

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

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

##</code><code>##

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

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