sub secondRoutine {
    my @array1 = @{ shift(@_) };
    my @array2 = @{ shift(@_) };
    my @array3 = @{ shift(@_) };

    print ("Test first value in array1: $array1[0]");
    print ("Test third value in array2: $array2[2]");
    print ("Test fifth value in array3: $array3[4]");
}

##</code><code>##

<c>sub secondRoutine {
    my ($array1_ref, $array2_ref, $array3_ref) = @_;

    print ("Test first value in array1: $$array1_ref[0]");
    print ("Test third value in array2: $$array2_ref[2]");
    print ("Test fifth value in array3: $$array3_ref[4]");
}