sub name {
   my ($arg) = @_;
   if (not ref $arg) {
      $arg = \$arg;
   }

   # Do stuff.
   $$arg = 'changed';

   return $$arg;
}