RosettaCodeData/Task/Pick-random-element/Perl/pick-random-element.pl

my @array = qw(a b c);
print $array[ rand @array ];