Select Code to Download

    modify( \$val );

...
      my $ref = shift;
      $$ref ++;   # or whatever
    }

    modify( $val );

...
      $_[0] ++;   # or whatever.
    }