modify( \$val );

    sub modify {
      my $ref = shift;
      $$ref ++;   # or whatever
    }

##</code><code>##

    modify( $val );

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