#!/usr/bin/perl -w

use strict;

my @words;
my @biglist;

open WORDS, "<words.txt";
@words = <WORDS>;
close WORDS;
chomp @words;

foreach(0..9999) {
  my $index = rand(1000); # Get a random index for the word list
  my $word = $words[$index];
  $biglist[$_] = $word; # Insert supposedly random word into big list
}

print join("\n", @biglist)."\n";

# Run this script and pipe through sort -u | wc and you always get 999 words.  How?