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]");
}