my $i;
  my $fizz = 3;
  my $buzz = 5;
  for ($i = 1; $i <= 100; $i++) {
    if ($i ne $fizz && $i ne $buzz) {
      print "$i\n";
      next;
    }
    if ($i eq $fizz) {
      print "fizz";
      $fizz += 3;
    }
    if ($i eq $buzz) {
      print "buzz";
      $buzz += 5;
    }
    print "\n";
  }