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