sub modify_string{
  my $arg = \shift;

  ## $$arg is modified, no need for the details, eg
  $$arg =~ s/u/i/;
  return $$arg;
}