In your routine_2 the @array consumes all of the remaining elements of @_ because the routine has no idea of where the array ends and the hash reference starts. You could either change the order so the the hash reference comes before the array or, probably better, change the array to an array reference.

...
routine_2( $num, \ @array, \ %fruit );
...
sub routine_2
{
    my( $num, $aref, $href ) = @_;
...
[download]

I hope this is helpful.

Please use <code></code> tags to format your code.

In routine_2 your hash reference is stored as the last element in @array.

quoted from perldata

The final element of a list assignment may be an array or a hash:

    ($a, $b, @rest) = split;
    my($a, $b, %rest) = @_;

You can actually put an array or hash anywhere in the list, but the fi
+rst one in the list
will soak up all the values, and anything after it will become undefin
+ed. This may be 
useful in a my() or local().
[download]

You must decide now, whether to pass the array as last argument to routine_2 or to pass a reference to that array and then use that reference in your subroutine. I'd use the second option. ;o)

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

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