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