Select Code to Download

  $item = $a[ rand @a ];

  my @items;
  for ( 1 .. $n )
  {
    push @items, $a[ rand @a ];
  }

  my @items;
  for ( 1 .. $n )
  {
    push @items, splice @a, rand @a, 1;
  }