#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;
use 5.10.0;

for my $i (1..100) {
    !($i % 15) ? say "FizzBuzz"
    !($i % 3)  ? say "Fizz"
    !($i % 5)  ? say "Buzz"
    say "$i";
}