$array[int(rand(scalar(@array)))];

##</code><code>##

$array[rand @array];