3 lines
52 B
Perl
3 lines
52 B
Perl
|
my @array = qw(a b c);
|
||
|
|
print $array[ rand @array ];
|