RENOTES

Пример вывода случайного элемента из массива на Perl:

my @arr = ('foo', 'bar', 'baz');
print random(@arr);

sub random {
	my @values = @_;
	return $values[int rand scalar @values];
}

Простое решение рандомного массива в JavaScript.

var array = [1,2,3,4,5];
array.sort(function() { return 0.5 - Math.random() });