Help for this page
$how[rand($rand_max) % (scalar @how)], $where[rand($rand_max) % (scalar @where)], $what[rand($rand_max) % (scalar @what)]);
$how[rand @how], $where[rand @where], $what[rand @what];