$how[rand($rand_max) % (scalar @how)],
    $where[rand($rand_max) % (scalar @where)],
    $what[rand($rand_max) % (scalar @what)]);
[download]

Much simpler, and more traditional, to write these as:

    $how[rand @how],
    $where[rand @where],
    $what[rand @what];
[download]

-- Randal L. Schwartz, Perl hacker