for my $i (1..100) {
  my $result;
  $result .= "Fizz" unless $i % 3;
  $result .= "Buzz" unless $i % 5;
  $result //= $i;                   # "unless defined $result;"
  print "$result\t\t";
  
  print "\n" unless $i % 5;	    # that's just sugar for nicer tabular view
}