Select Code to Download

$firstrandom = $list1[rand @list1];
push @list2, $firstrandom;
...
  };
};

# fisher_yates_shuffle( \@array ) : generate a random permutation
# of @array in place
...
}

fisher_yates_shuffle( \@array );    # permutes @array in place