The int's are redundant as well. The idiom for grabbing a random item of an array is just:

my $one_char_at_random = $chars[rand @chars];
[download]

No point in adding noise parens or noisy int functions.

-- Randal L. Schwartz, Perl hacker