This line:

 $pass .= $array[int(rand(scalar(@array)))];
[download]

during a code review would have me scratching my head, pondering whether the author was getting paid by the character. I'd probably gently suggest, in the nicest but firmest tones, that it be replace with the much simpler and exactly effectively equivalent:

  $pass .= $array[rand @array];
[download]

-- Randal L. Schwartz, Perl hacker