<prompt> Kubuni programu ya Perl ambayo inazalisha kesi za mtihani za nasibu kwa algorithm maalum.  <response>: Hii ni mfano wa programu ya Perl ambayo inazalisha kesi za mtihani za randomized kwa algorithm rahisi ambayo hupata kipengele cha kiwango cha juu katika safu fulani: 