fizzbuzz in perl 6

fizzbuz.pl

use v6;
my $say;

for 1..100 {
  if $_ %% 3 {
    if $_ %% 5 { $say = "FizzBuzz!"; }
    else { $say = "Fizz!"; }
  }
  elsif $_ %% 5 { $say = "Buzz!"; }
  else { $say = $_; }
  say $say;
}