use strict;
sub doubleWord {
  my $word = shift;
  return $word.$word;
}

print doubleWord('hello');
[download]