my $array = [];
  @{$array} = ($x) x $n;
  return $array;

##</code><code>##

  my @array = ($x) x $n;
  return \@array;

##</code><code>##

  my $array = [ ($x) x $n ];
  return $array;

##</code><code>##

  return [ ($x) x $n ];