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