fizzbuzz.pl

for (my $i = 1; $i <= 100; $i++) {
  my $fb = 0;
  if ($i % 3 == 0) {
    $fb = 1;
    print "fizz";
  }
  if ($i % 4 == 0) {
    $fb = 1;
    print "buzz";
  }
  if ($fb == 0) {
    print($i);
  }
  print("\n");
}