#!/usr/local/bin/perl
use v5.16;
use warnings;
for my $n ( 1 .. 30 ) {
    my $fz = '';
    $fz .= 'Fizz' unless $n % 3;
    $fz .= 'Buzz' unless $n % 5;
    say $fz || $n;
}