Is this what you want?

&routine_2( $num, \@array, \%fruit); 
...

sub routine_2 {
    my($num, $array, $ref) = @_; 
    print ("debug: routine_2: array = @$array \n"); 
...
}
[download]