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