Select Code to Download

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

f(\@array1, \@array2);

sub f {
    my $aref1 = shift;
    my $aref2 = shift;
...
    print "$_\n" for @$aref1;
    ...
}

sub f {
    my @a1 = @{shift};
    my @a2 = @{shift};
...
    print "$_\n" for @a1;
    ...
}