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