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