Select Code to Download

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

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

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

  return [ ($x) x $n ];