select random element from an array

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