Select Code to Download

use strict;
use warnings;
...
modify_args($one, $two);

print "$one $two\n";

sub modify_args1 {
  my ($argref1, $argref2) = \(@_[0..$#_]);
  $$argref1 = 'new value';
}