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
}

##</code><code>##

for my $i (1..100) {
  if      ( not $i % 15 ) {
    print "FizzBuzz";
  } elsif ( not $i % 3 )  {
    print "Fizz";
  } elsif ( not $i % 5 )  {
    print "Buzz";
  } else {
    print $i;
  }

  print "\t\t";
  print "\n" unless $i % 5;	# that's just sugar for nicer tabular view
}