RosettaCodeData/Task/FizzBuzz/Perl-6/fizzbuzz-4.pl6

say 'Fizz' x $_ %% 3 ~ 'Buzz' x $_ %% 5 || $_ for 1 .. 100;