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