sub name {
  my ($arg) = @_;
  if (ref $arg) {
    $$arg = 'x';
    return;
  }
  else {
    return 'x';
  }
}