sub doubleWord($word)
  {
  return $word.$word;
  }

print &doubleWord('hello');