Or to be more compact:

use 5.012;sub t{state$t='@PERLMONKSFAITH';++$_[0]>100?exit:$_->[ord("@
+"^($t.=substr$t,0,1,''))]}$_->[0](my $n=1)for[map{my$s=$_;sub{say$s?"
+${s}zz":$_[0];goto&{&t}}}qw/0 Fi 0 0 0 Fi 0 0 FizzBu 0 0 Fi Bu Fi 0 0
+ 0 0 0 Bu 0/]
[download]