これならどうかな。
while(++$i) {print ['Fizz', 'Buzz', 'Fizz Buzz', "$i"]->[rand 4]."\n"}
while(++$i){ print "Fizz " if rand 2>1; print "Buzz" if rand 2>1; print $i if rand 2>1; print "\n";}# pray while run. これ以上ダメなアルゴリズムはあるま…いや、あるかもしれんな…
これならどうかな。 while(++$i) {print ['Fizz', 'Buzz', 'Fizz_Buzz', "$i"]->[rand 4]."\n"}