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

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

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