Help for this page

Select Code to Download

Select or download this

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