$chars[int rand scalar @chars]

##</code><code>##

$chars[rand @chars]