How do I select a random element from an array?

    srand;			# not needed for 5.004 and later
    $index   = rand @array;
    $element = $array[$index];

If you just want a random line from a file, you can do this:

    srand;
    rand($.) < 1 && ($line = $_) while <>;

This has a significant advantage in space over reading the whole file in.

• Back to How do I process/modify each element of an array?

• Forward to How do I permute N elements of a list?

• Up to the perlfaq4 manpage