Select Code to Download

sub secondRoutine {
    my @array1 = @{ shift(@_) };
    my @array2 = @{ shift(@_) };
...
    print ("Test third value in array2: $array2[2]");
    print ("Test fifth value in array3: $array3[4]");
}

<c>sub secondRoutine {
    my ($array1_ref, $array2_ref, $array3_ref) = @_;
...
    print ("Test third value in array2: $$array2_ref[2]");
    print ("Test fifth value in array3: $$array3_ref[4]");
}