#!/usr/bin/perl
#
# Sample FizzBuzz program

my $i;

for $i (1..100) { 
  my $word = ($i % 3) == 0 && ($i % 5) == 0 ? "FizzBuzz" : ($i % 3) == 0 ? "Fizz" : ($i % 5) == 0 ? "Buzz" : $i; 
  print "$word "; 
}

print "\n";