my $where = $#words * rand();