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

##</code><code>##

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